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S programmer 

un ordinateur est 
devenu pour vous 
un loisir, un plaisir... 

une passion, sachez que LIST a été créé 
pour vous. LIST vous aide à tirer davantage 
de votre matériel, à vous perfectionner 
dans la conception des programmes 
qui “tourneront” sur votre machine. 

LIST vous initie aux langages informatiques 
et sélectionne les meilleurs livres pour 
progresser. LIST vous informe de l’actualité 
et vous fournit trucs, astuces et idées 
pour mieux programmer... 

Pour être sûr de ne rater aucun numéro 
et pour recevoir LIST chez vous, 
abonnez-vous ! 


BULLETIN 
D’ABONNEMENT 

à retourner à LIST 
(service Abonnements) 

5, place du Colonel-Fabien 
75491 Paris Cedex 10 


A 


Nom :. 


, eT , E PLAISIR dE 

L »£rRAMMER 

PROG , ha „d de journaux 


Adresse : 


Ville : 


Code postal : 


/ ** Veuillez m’abonner pour 10 numéros au prix 
avantageux de 160 F* au lieu de 200 F. Je fais ainsi 
une économie de 40 F sur le prix de vente au numéro. 
Je joins mon règlement indispensable libellé 
à l’ordre de LIST. 


2 o F chez 


votre 


ma rcl 


* Belgique : 1330 FB : Suisse : 50 FS ; Canada : 30 $ C ; autres pays : 210 F F. 

Par avion ; Afrique francophone : 245 FF; Amérique, autre Afrique. Océanie : 305 FF; 
Asie 355 FF 

Belgique : Soumillon. 28, av. Massenet, 1190 Bruxelles. 

Versement Société Générale 2100405 835-39. 

Suisse . 19. route du Grand-Mont, CH 1052, Le Mont-sur-Lausanne. versement Caisse 
d'Epargne et de Crédit. 10-2418 Le Mont CH 1052, compte courant n° 650 156-7. 

Canada : LMPI, 9345. rue de Meaux, S 1 Léonard (Québec). H IR 3H3. Canada. 

Autres pays : 5, place du Colonel-Fabien, 75491 Paris Cedex 10. 























SOMMAIRE 


Ce numéro d'0rdi-5 est, vous l'avez 
remarqué, un numéro spécial. 
Pourquoi ? Parce que nous avons 
décidé de vous livrer une partie 
■Sx5:5: de notre trésor de guerre : 
x&gg: 35 bons programmes patiemment 
stockés depuis plusieurs 
numéros, parce que la place 
'$$$$$ est toujours réduite et qu'il faut 

chaque fois effectuer des arbitrages 
douloureux à cause de la longueur 
très variable des programmes 
proposés par les lecteurs. 

Exemple de dialogue courant à la 
rédaction : 

«— Qis-donc, il ne reste plus qu'une 
MfM colonne pour boucler la revue... 

Ijw - Il faut garder le programme 

« Loto » de Didier M. qui fait deux 
colonnes et le remplacer par le 
#x§:£: programme de Fançois B. 
x$x*:£ qui ne fait qu'une colonne ; ils sont 
:$x*x5 super-valables tous les deux mais ce 
n'est pas le même genre... 

W&tg — OK ! retirons le plus long, mais il 

faudra absolument le publier un jour. » 
Le rédacteur en chef a tranché : 
i e <( rnarbre » (réserve) s'est 
augmenté d'un logiciel. 

S:|:Voici d'un seul coup 35 « injustices » 
effacées avec un recueil qui est une 
photographie précise des centres 
d'intérêt préférés des lecteurs, car 
nous n'avons fait de sélection que 
:j§x§x> sur ia qualité, pas sur les sujets : 
beaucoup de jeux, un peu moins 
d'utilitaires et assez peu 
de programmes courts ( 1 K) ou 
Si:-:::-?:: d'initiation, ce qui est étonnant car 
&?&:$: les Sinclair sont des ordinateurs très 
WM conviviaux pour les débutants. 
Seulement voilà : les réserves 
de la banque logicielle d'ORDI-5 
gjHjH ont brusquement chuté 

au niveau critique. Alors vite, 
x?!5x§ au secours, à l'aide, des 
$:*x?x programmes, des articles, pour que 
cette revue qui nous amuse bien 
et qui semble vous plaire connaisse 
: : : : : : : : : : : : : : : : avec vous les bons moments 
informatiques qui attendent 
encore les fidèles de Sinclair 
(Spectrum Plus, QL, etc.) !! 
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l' O EasalQi udo carto graphlgo-Q, an ^ ' SINCLAIR 

(ZX 81*. ZX 80* ou Spectrum*) ou 
jgg si vous comptez en acheter un, sachez 

que la revue ORDI-5 a été créée pour 
V m t vous. Indépendante de tout constructeur ou importateur, 

.— ORDI-5 vous fournit quatre fois par an des programmes, 

des conseils, des astuces, de nouvelles idées d’utilisation. 
ORDI-5 teste pour vous en toute objectivité et indépendance les produits matériels 
et logiciels adaptables sur votre SINCLAIR. ORDI-5 vous tient au courant 
de toutes les nouveautés susceptibles de vous intéresser. 
Commandez un numéro ou... abonnez-vous, vous économiserez 20%. 

ORDI-5, pour tirer bien plus de votre SINCLAIR 


'marques déposées 


BON DE COMMANDE 

à retourner à ORDI-5, 8 me Saint-Marc 75002 PARIS 

Nom___,_ 

Adresse_!___ ■ _ 

Pays_:. . .Code postal_ ■ Ville ___ ■ 

□ Je désire recevoir les 4 derniers numéros parus et m'abonner pour recevoir les 4 prochains numéros. 

(France 160 FF; Etranger** 180 FF; par avion 320 FF). 

□ Je désire recevoir les numéros antérieurs suivants :_,___ 

(prix d'un n° 25 FF; Etranger** 30 FF; par avion 40 FF). 

□ Je désire m’abonner à ORDI-5 pour 4 n DS _;_ 

(tarif France 80 FF; Etranger** 90 FF; par avion 160 FF). (Actuellement ORDI-5 est trimestriel). 

Ci-joint mon règlement indispensable par chèque bancaire □ chèque postal □ virement □ 


"•Pour les pays autres que la France, utiliser un virement en FF compte Crédit Lyonnais Paris n° 30002 00402 8455 J. Les ftais de virement sont à la charge de l’acheteur. 


























IM 


J r r 


30, rue Condorcet - 75009 PARIS 
Téléphone : (1) 285.12.34 



POUR ZX 81 ET TSÏV1EX 

- Clavier professionnel 

- Interface disquettes et lecteur 5” 1/4 

- Extensions de mémoire 16,32 et 64 K 

- Carte d'inversion vidéo 

- Carte génératrice de sons 

- Synthétiseur vocal 

- Générateur de caractères graphiques 

- Crayon optique 

t Prolongateur souple de bus 

- Filtre d'enregistrement 

- Interface pour poignée de jeu 

- Carte génératrice 16 couleurs 

- Carte auto répétition 

- Carte 8 entrées analogiques 

- Carte entrées/sorties 

- Programmateur d'Eprom 

- Carte Eprom 

- Beep clavier 

- Carte mère 

- Carte proto. 



clavier Pro Spectrum 950.- F. 



ET ENFIN LE Q. 


clavier Pro ZX 81 770.- F. 


POUR ZX SPECTRUM 

- Clavier professionnel 

- Interface disquettes et lecteur 5" 1/4 

- Interface ZX 1 

- Lecteur de micro disquette 

- Micro disquettes pour micro drive en stock 

- Extension de mémoire externe 16/48 K 

- Interface type Kempston pour joystick 

- Interface programmable pour joystick 

- Amplificateur de son réglable 
jusqu'à X 10 

- Synthétiseur vocal 

- Modulateur noir et blanc 

- Interface mixte Centroriics/RS 232 

- interface Péritel 

- Crayon optique 

- Carte 8 entrées analogiques 

- Carte entrée/sortie 

- programmateur d'Eprom 

- Carte Eprom 

- Raccordement pour moniteur 
monochrome 

- Prolongateur souple de bus 


TRES GRAND CHOIX DE LOGICIELS UTILITAIRES ET LUDIQUES (IMPORTATION DIRECTE) 
IMPRIMANTES : SEIKOSHA - EPSON - STAR - MANNESMANN TALLY 
MONITEURS MONOCHROMES ET COULEURS : ZENITH - PHILIPS - TAXAN - BMC 


TELEVISION - LOCATION 

- POSTES SECAM AVEC SORTIE PERITEL 

- POSTES MULTISTANDARDS PAL SECAM 

COMPATIBLES MICRO - ORDINATEURS 

LOCATEUR 


CATALOGUE GENERAL ET TARIFS : 10.- F. 
(remboursable à la première commande) 



A retourner à INTERFACE, 30, rue Condorcet, 75009 Paris. 
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Le petit livre du ZX 81 

parTrevorToms 

136 pages -80,00 FF 

102 programmes pour Sinclair 
par Jacques Deconchat 
240 pages-110,00 FF 
Micro-Compta pour Sinclair 

par Gaston Miclot 

128 pages - 35,00 FF (port : 10,00 FF) 

Micro-Gestionnaire pour Sinclair 

par Gaston Miclot 

128 pages - 35,00 FF (port : 10,00 FF) 

Boîte à outils pour Sinclair 

par Marcel Henrot 


La pratiaue du ZX 81 Tome 1 

par Xavier Linanl de Bellefonds 

128 pages - 80,00 FF 

La pratique du ZX 81 Tome 2 

par Marcel Henrot 

152 pages - 90,00 FF 

Etudes pour ZX 81 Tome 1 

par Jean-François Sehan 

160 pages - 90,00 FF 

Etudes pour le ZX 81 Tome 2 

par Jean-François Sehan 

176 pages - 90,00 FF 

Clefs pour le ZX 81 

par Jean-François Sehan 

96 pages - 90,00 FF 




La pratique du ZX Spectrum Tome 1 

par Xavier Linant de Bellefonds 

168 pages - 90,00 FF 

La pratique du ZX Spectrum Tome 2 

(Langage machine) 

par Marcel Henrot 

168 pages - 90,00 FF 

Exercices pour ZX Spectrum 

par Julien Levy 

128 pages - 80,00 FF 

Le Spectrum à l'affiche 

par Jean-François Sehon 

136 pages - 90,00 FF 


Clefs pour le ZX Spectrum 

par Jean-François Sehan 

112 pages - 90,00 FF 

Spectrum pour tous 

par J. Boisgontier et M. Henrot 

14O pages -100,00 FF i 

Boîte à outils pour 

le navigateur de plaisance 

par Lucien Slrebler 

128 pages - 35,00 FF (port : 10,00 FF) 

Le petit livre du Spectrum 

par Trevor Toms 

168 pages - 90,00 FF 
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Michel Chanaud propose 
aux plus jeunes lecteurs d'ORDI-5 
d'apprendre à lire l'heure, ce qu'ils 
feront sans peine quand ils auront 
vu le graphisme attrayant de ce joli 
programme qui comprend parfaitement 
les énoncés horaires les plus divers. 



/ 


10 REM 



I LECTURE DU CflDRRN R RIGUILLES 


MICHEL CHRNBUD 


30 GOSU6 9200 
4-0 GOSUB 9000 
100 REM 


101 FOR R=1 TO 10 

105 PRIMT RT 2,18; OS.: RT 4-.. 18; OS 
; RT 2018OS 

lie LET H=INT IRN&ÿ-iS) -r-1 
120 LET M= fXTTT (RN0S12) 3 *-5 
200 REM 


210 LET flM=PI*(75-M)X30 
220 LET RH= £5*PI/'23 - tH*PI/6> - (M 
fP I ,•'3603 

23© LET CH=COS RH 
240 LET SH=SXN RH 
250 LET OM=CQS RM 
25© LET SM=5IN RM 
30© RE3i- 

310 CLS 
320 PRINT C$ 

330 FOR R=0 TO RH 
340 PLOT R*CH+XO,R*SH+YO 
350 NEXT R 
360 FOR R=© TO RM 
370 PLOT R*CM+XO,R*SM+YO 
380 NEXT R 
400 REM 


410 GQSUB 1000 
420 GOSUB 1200 

450 IF HP OH OR MPOM THEN GOTO 
500 

455 PRINT RT 19,18;OS 
460 PRINT RT 20,18; 


465 PRINT RT 21,16;OS+" 

470 LET REP=REP+1 
480 FOR J=1 TO 20 

482 PRINT RT 0,8;' 

483 PRINT RT 0,8;‘ 

490 NEXT U 

491 NEXT R 

492 CLS 

493 PRINT RT 6,2;REP," BONNES R 
EPONSES SUR 10“ 

494 IF REP>=9 THEN PRINT ,," 

G"“EST TRES BIEN" 

496 PRINT RT 15,5;“VOULEZ-VOUS 
REJOUER ?(OxN3" 

497 GOSUB 5000 

498 IF R$0“N" THEN R UN 40 

499 STOP 

500 REM 


501 LET REP=REP~1 

504 PRINT RT 19,18;"IL Y R ERRE 
UR" 

508 PRINT RT 21,16;“POUR ."; 

510 IF HP O H RND MP OM THEN GOT 
O 800 

515 IF MPOM THEN GOTO 700 
518 REH 


52© PRINT “DSSMSsëM 

54 S GOSUB 1©SEr 

545 IF MO THEN LET HP=HP-1 

550 GOTO 450 

560 REM 


700 print 

710 GOSUB 1200 
720 GOTO 450 
750 REM 


800 

810 

820 

1000 


print " 

PRINT RT 2,19;OS;BT 4,19;OS 
GOTO 400 
REM 


1005 PRINT RT 2,19;05 

1010 PRINT RT H,19;"HEURE = "; 

1020 LET TS —"" 

1030 FOR U=1 TO 2 
1040 GOSUB 5000 

1042 IF RS—"X" THEN GOTO 1000 
1045 IF RS = "H" OR CODE RJ = 118 TH 
EN GOTO 1100 

1060 IF RS < “0“ OR RS 3"9“ THEN GO 

TO 1040 

1070 PRINT RS; 

1080 LET TS=T$+RS 
1090 NEXT U 

1100 IF TS="“ THEN LET TS=“0" 
1105 LET HP=VfiL T$ 

1110 IF HP >12 THEN LET HP=HP-12 
1120 IF HP =0 THEN LET HP=12 
1190 RETURN 
1200 REM 


1210 LET TS=““ 

1215 PRINT RT 4,19;OS 

1220 PRINT RT 4,19;"MINUTES» 

1225 LET MO=0 

1226 LET FR=0 
1230 FOR Ü=1 TO 2 
1240 GOSUB 5000 

1242 IF RS = ’3C" THEN GOTO 1200 
1245 IF Rî="M" OR CODE R$=118 TH 
EN GOTO 1350 

1250 15 R5 0"U" HND RÏO'V THENt 

GOTO 1300 

1260 IF R$~"ü" THEN GOSUB 1500 
1270 15 RS — "U" THEN GOSUB 2.500 
1280 LET U=U-1 
1290 GOTO 1320 

.1300 IF R S < "0 " OR RS > "9" THEN GO 
TO 1240 

1310 LET TS=T$+RS 

1315 IF LEN TS >4 THEN GOTO 1200 
1320 PRINT RS; 

1330 NEXT J 
1340 REM 


1350 IF TS = ““ THEN LET T$ = "0" 

1351 IF LEN T$=l THEN GOTO 1355 

1352 IF TS(1J='V" THEN GOTO 1200 

1353 IF TS ( TO 2) OR TS t TO 

£)=•■--" THEN GOTO 1200 

1355 LET MP=URL T$ 

1360 IF NOT FR RND NOT MO THEN R 
ETURN 

1370 IF FR THEN LET MP=60*MP 
1380 IF MO THEN LET MP=60+MP 
1390 IF MO THEN LET HP=HP-1 
1400 IF HP=0 THEN LET HP=12 
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INITIATION 


14-50 RETURN 
14-60 REM 


1500 LET MO=l 
1510 LET R$ = "- 
1530 RETURN 
1530 REM 


1600 LET FR = 1 
1610 LET R$ = ”X' 
1630 RETURN 
5000 REM 


5005 XF INKEY$ < > " " T HEM GOTO 500 
5 

S010 LET R$=INKEY$ 

5020 XF R$ = "“ THEN GOTO SS1S 
5030 RETURN 
504-0 REM 


7000 

7800 

7900 

S000 

9000 


9010 

9020 

903© 

9046 

9050 

9060 

9100 

9101 

9102 

9103 
a 

9104- 

9105 

9106 

9107 
9106 

9109 

9110 
3111 

9112 

9113 
9114- 

9115 

9116 

9117 
9116 

9119 

9120 

9121 

9122 


SL OU 

IF INKEY S = " 
GOTO 100 
STOP 
REM 


THEH GOTO 7300 




LET XO=19 
LET YO=21 
LET RH =10 
LET RM =14; 

LET Q$ = " 

LET REP—0 
DIM C$(700} 

LET C*(9 TO 11}=" 
LET C$C40 TO 44}=' 
LET CS (70 TO 79} =■ 


LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET' 

LET 

LET 

LET 


C$(103 TO 
C$(106 TO 
C$(110- TO 
C$(131 TO 
C*(141 
C$(162 
C$(177 
CS(194 
CÏ(210 
C$(225 
C9(240 


TO 

TO 

TO 

TO 

TO 

TO 

TO 


Ci(257 TO 
CÏ (275) = "| 
C$ (269} ="1 
C®(307 TO 
CS (321) = "| 
CS(339 TO 
CS (353 TOr 
CS (362)=" 


102 ) =" _ 

107) = " 12 ' 
112 )=' 

136) =- JF'll' 
145)= "ÎT 
164) =" 

176) =“* 

195) = 

211 )= _ 

229) =“H , 10’ 
243) = "2®~ 
256 )="B 


308) =' 


340) ='• SS ' 
355) = "§?“£ 


9123 

9124 

9125 

9126 

9127 
9126 

9129 

9130 

9131 

9132 

9133 

9134 

9135 

9136 

.9137 

9138 

9139 


LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 


81 

CS 

e$ 

es 

c$ 

es 

es 

es 

St 

es 

81 


(370 

(365) 

(403 

(417 

(435 

(449 

(465 

(462 

(497 

(529 

(547 

(556 

(514 

(580 


TO 372)=" 

TO 404)=' 
Tff 41S> =' 
T O 436) =' 
T O 452) =' 
TO 467) =• 
TO 463)= 
TO 499)= 
TO 530)=" 
TO 551)= 
TO 562)= 
T O 515) = 
TO 586)= 




LET CS(590 TO 593X= 
LET CS(612 TO 624)= 

B " 

C$4644 TO 656} : 



914© LET C$(676)="8 
9141 LET C$ (688}="® 

9199 RETURN 

9200 REM 


9210 CLS 
9220 PRINT 


9230 PRINT 
RE D""HEURE _ 

9240 PRINT TRE 31;“ 
DRRN R AIGUILLES 
925© PRINT 



EXERCICES DE LECTU 


SUR CR 


(sage; O P; n : : 

9285 PRINT RT - 27Ï7; 

9290 PRINT RT 6,0; "SH CLOTURE L 
INTRODUCTION" 

9300 PRINT ,, "H 
INS"" (EX.-10}' 

9400 PRINT ,,"|S1 
TION (EX.1X4}" 

9405 PRINT ,,"S 
ECTION" 

9410 PRINT ii t ,“NOTA 
S ta 3H 45" 

9420 PRINT TRB 19; 

1X4" 

9430 PRINT TRB 19;" ra 4H -15" 

9435 PRINT TRB 11;"X";TRB 19;"®, 
15H 45" 

9440 PRINT "SONT ACCEPTEES";TRB 
19; "as ETC. . . " 

9450 IF INKEY$=" 

9460 CLS 
9500 RETURN 
9900 CLERR 

9910 SflUE "HEURll" 

9911 REM RRND USR 62S2 

9912 REM S61H 
9920 RUN 


PERMET LE “"MO 
PERMET LR FRAC 
PERMET LR CORK 


LES FORME 
4H - 


THEN GOTO 9450 


ZXenglish? 

(Spectrum) 


L. Delreux vous propose un canevas 
de programme d'entraînement au 
vocabulaire anglais. Les DATA qui 
terminent le programme doivent être 
développés selon les besoins 
et la progression. 




8 CLS 

10 PRINT RT 12,9;"ENCLISH" 

11 POKE 23609,70 

ÎI-PR^nI âf 0 17,5;"PRESS RNY KE 
TO STRRT" 

18 PRUSE 0: CLS 

20 LET SCORE<=0: PRPER 1; INK 7 


: BORDER 1: CLS 
30 DIM R(20) 

4-0 PRINT RT 10,7; FLRSH 1; INU 
ERSE IJ"U E L C 0 M E" 

45 PRINT RT 15,3;"UOCRBULRRY T 
EST" 

47 PRUSE 180 

48 CLS 
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80 PRINT TflB 3;"HOU hRNY WORDS ASH 1; BRIGHT 1;"YOUR 8CORE lo N 
WÜULD" DW SCORE 

70 PRINT TRB 6;"YOU LIKE TO TR 330 PRUSE 350 

Y? U TO 3®)" 340 NEXT C 

30 INPUT B 350 INK 3; PAPER 7: FLASH 1: CL 

30 IF B <1 OR B >30 THEN GO TO 8 S : PRINT AT 6,3;"IN THAT TEST Y 
0 QU SCORED SCORE;B 

100 FOR C = 1 TO B 353 IF SCORE<B/3 THEN PRINT AT 

110 FOR D=1 TO INT (RND*20)+1 9,3;"YOU MUST WORK HRRD" 

130 READ E$: READ F$: READ X 358 IF &CQRE=B THEN PRINT AT 10 

13® NEXT D ,3;"YOU'RE A GÛÜD STUDEN1I 

140 RESTORE ; CLS 360 PAUSE 300: FLASH 0 

150 IF A (X) =1 THEN GO TO 110 370'GO TO 30^. 

160 LET A(X)nl 380 DATA "EUERYWHERE","PARTOUT" 

170 PRINT INK RND*7; PAPER 9; "0 , 1, "SELDÛM" , "RAREMENT'; ,2, "OFTEN" 

UESTION NUMBER ";C;": " ,"SOUVENT",3,"NEVER","JAMAIS",4 , 

180 PRINT "WHAT IS THE FRENCH F "ALWAYS" , "TOUJOURS",5 „ k ^ r , c?M 

OR" ; T AB 4;EIS;"?" 330 DATA "UERY" , "TRES" , 6 , "MÛRE 

îaâ PRINT ,"PLUS",7,"LESS","MOINS",6,"YEs" 

190 INPUT AS , "OUI" , 9, "NO"', "NON" ,10 , „ 

300 IF Aê*FS THEN LET SCORE=SCÛ 300 DATA "THANK YOU","MERCI" 4 11 

RE + 1: BEEP .1,3.SüSCÜRE: PRINT F ,"ONE","UN",13,"TOW" , DEUX",13," 

LASH i; INK 3; PAPER 5;"YES, ";F THREE","TROIS",14,"FOUR","QUATRE 
S," IS CORRECT" " , 15, "FIVE" ,"U|NQ" ,lo, SIX , SIX 

310 IF A® < >F® THEN PRINT "NO I' ",17,"SEUEN","SEPT",18,"EIGHT" , 

M SORRY.THE FRENCH WORD FOR ";E$ HUIT",19,"NINE","NEUF",30 

;TAB s;"is ";F® 330 STOP 

330 IF C <B THEN PRINT INK 3; FL 350 SAUE "ENGLISH" LINE 8 



N'espérez pas vous endormir avant d'avoir écrasé tous les moustiques 
éparpillés sur l'écran. (E. Le Chevalier). 


asiPtieNæaàaisiiajsiBjE 


1 REM MOUSTIQUE CC) ETIENNE LE 
CNEURL1ER 

2 LET fi = l 

3 LET B = 1 
4. LET 5=3 

5 LET X=21 

6 DIM M(21,315 

10 PRINT "**LE JEU CONSISTE R 
ELIMINER LES MOUSTIQUES ET SE CO 
UCHER * *■" 

15 p pj x NT 

20 PRINT ..FRAPPEZ UNE TOU 

CHE. 

25 PAUSE 4E4 

30 CLS _ 

35 PRINT RT X . 16 : " ESM 1 * 

4-0 FOR Z = 1 TO 10 

45 LET L = INT (RNDïS0i +1 

11 LET C = INT (RND*30> +1 
55 LET M(L,C)=CODE 

60 PRINT AT L,C,"*“ 

65 NEXT Z 
70 PRINT RT 0.0; "I 


SEî'TEHKSsESI 


75 REM igg_ 

se PRINT RT R , B ; "E 
85 PRINT RT R, B';" " 

^ 9®, LET B=B+(INKÉY$ = "8") -<INKEY 
*= 5 ) 

95 „ LET R=A+(INKEYt="6"!-<INKEY 

ï 0 ® tfi=X B = 1SJ OR (R=X R 

GOTO ~600 ° R (R=X flND B = 1S3 THEN 
105 IF R=0 THEN LET fl=l 
110 IF R=22 THEN LET R=21 
115 IF B=0 THEN LET B=1 
120 IF B=32 THEN LET B=31 
125 LET MCR,B)=CODE " " 

130 LET S=S+1 

135 IF 3=150 THEN GOTO 500 
14-0 

300 PR INT HT 070,™ 

310 PRINT "POUR RECOMMENCER FRI 

TES""R. 

315 PRINT 

320 PRINT "POUR ARRETER FRRPPEZ 
UNE TOUCHE SAUF"“R. 

330 print rt i0, s,- 

345 PRINT RT 16,16;"RRR- 

350 FOR F = 1 TO 50 
355 NEXT F 


360 PRINT RT 16,16;"RRR. 


. ZZZ' 


365 FOR F=1 TO 50 
370 NEXT F 

375 IF INKEY*="R" THEN GOTO 40© 
380 IF INKEY $ < >"R" RND INKEY*< > 
"" THEN GOTO 390 
385 GOTO 345 
390 STOP 
400 CLîî 

4-10 R UN ____ 

415 REM BMgiCTBaæigBB 
500 CLS 

505 PRINT RT 2,0; "VOUS ETES:". 
510 PRINT RT 6,7;"® IS H 0 

P" 

.,515 PRINT TRB 7; "US ES E3 B 0 

.,520 PRINT TRB 7; "B H 0 @ H ® 

,525 PRINT TRB 7; "B Bi S S H 

530 PRINT TRB 7;"g 3 


535 PRINT RT 13,8;"PAYEZ VOUS U 
NE BOMBE INSECTICIDE” 

540 PRINT RT 21,0;"ON RECOMMENC 
E 7 (O.^N) " 

545 IF INKEY $ = "0" THEN GOTO 400 
550 IF INKEY*<>"0" RND INKEY*<> 
THEN STOP 
555 GOTO 545 
5S0 REM 
600 FRST 

605 FOR K=I TO 21 
610 FOR U=1 TO 31 


615 IF M(K,J)=CODE 
O 640 

620 NEXT .J 
625 NEXT K 
630 SLOU 
635 GOTO 300 
640 SLOU 

645 FOR P=0 TO 10 
650 PRINT RT X,20;' 
655 PRINT RT X,20;' 
650 NEXT P 
665 LET A=R-1 
670 GOTO 80 
675 STOP 

9000 SAUE "MOUSTIQUg" 
9999 RUN 


THEN GOT 


MOUSTIQUE 


a- 
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INITIATION 


Sesame (ZX 81) 


Comment protéger vos programmes 
pour qu'ils ne puissent s'ouvrir 
qu'à ceux qui connaissent la formule 
magique ? Avec un code 
alphanumérique à l'aide de ce petit 
programme de J.M. Pabst. 





@g|REM ENTREZ LE CODE: ■ ( GOS 
UB ?ÊRND<5feRMD GOSUE SB5URND FOST 
4*S URL STR Si FOST GOSUB ?9RND£4 R 
RND GOSUB ?9RND?=C SflUE LN HT7RT 
{ L.'-’RINT LPRINT ZZZ 

2 REM 

3 REM •" 

4- REM 

P YJÎLHS CODES-MRCHXN 

E.. DE 15514 O 16689" 

6 REM 
? REM 
10 SRUE 
20 LIST 


FAIRE RR N O USB 16 3:30 


acBHtlS 


SI UOTRE CODE EST. ZX SI 

ALORS TOPER POKE 16S83,CODE " Z' 
POKE 165S9.CODE "X 1 
POKE 16595jCODE " 1 
POKE 16601,CODE "S" 
POKE 16607,CODE "1‘ 


9997 SRVE "NOM DE PROGRAMME" 

9998 ROND USR 16530 

9999 RUN 


Machine express 
(ZX 8116 K) 


Y. Moyaux vous offre 6 routines 
machine ultra-courtes qu'il vous sera 
possible d'implanter dans n'importe 
quel programme d'animation selon la technique 
du REM initial : ces brillants exercices devraient 
préventions .faire tomber les dernières 
des plus hésitants vis-à-vis du langage 
machine pour lequel le ZX81 est un 
merveilleux initiateur. 



1. REM EERND7- ri*40»7 C C-LS 7 =? 
RETURN yCOS 7 LET XXXXXXXXXXXXXX 


vlvSttv ECRAN REMPLI INSTANTANEMENT 


16532 

16533 

16534 

16535 


200 

24 

24-1 

61 


COS 


LET 

X 


CODES fi POKER 


16514- 

16515 

16516 

16517 
15518 

16519 

16520 

16521 

16522 

16523 

16524 

16525 

16526 

16527 
1652S 

16529 

16530 

16531 


70- ORD 1-5 n° 10 Décembre 1984 


4-2 

12 

64. 

35 

22 

0 

6 

32 

54 

128 

35 

16 

251 

35 

20 

122 

254- 

24 


£ 

RND 

7 


/ 

4 

O 

B 

7 

( 

CL S 
7 

o 

RETURN 

7 


1 REM E£RNb“6 », FRST E£RND 7 
OST SGN LPRXNT ■ RUN » GOSUB fflT 
N XXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


SCROLL VERS LE HOUT 


16514 

16515 

16516 


42 

12 , 

64 


E 

£ 

RND 


X3P) 





































16517 

1 

» 

16S2S 

1 

ffi 

165 18 

34 

6 

16527 

247 

RUN 

15519 

0 


16523 

2 

s 

16520 

9 

im 

16529 

237 

GO5U0 

16521 

229 

FflST 

16530 

134 

M 

16522 

42 

E 

16531 

201 

TRW 

16523 

12 

£ 

16532 

61 

X 

16524- 

64 

RND 

16533 

61 

X 

16525 

35 

7 

16534 

61 

X 

16S26 

229 

FflST 

16535 

SI 

X 

16527 

209 

SGN 




16528 

225 

LPRINT 




16529 

1 

B 




16533 

247 

RUN 




16531 

2 

a 

CODES fl 

POKER 


16532 

237 

GQ-5UB 




16533 

176 

IS 




16534. 

201 

TflN 




16535 

61 

X 





CODES fi POKER 


1 REH EEHND7 - sF4 RRND 7 =Y-HI4 
LIST TRM XXXXXXXXXXXXXXXXXXXXXXX 


INVERSION VIDEO 


1 REH E tRND“ 7 S GOSUB PI/-URI 
FRST F5GN ■ 3 GOSUB EJ7Q FFRT ( 
LORD AT TAN XXXXXXXXXXXXXXXXXXXX 


SCROLL 

UERS LA 

DROITE 

16514 

42 

E 

16515 

16 

f 

16516 

64 

RND 

16517 

1 

a 

16513 

63 

•7 

16519 

0 


16520 

167 

H 

16521 

237 

GOSUB 

16522 

66 

PI 

16523 

6 


16524 

22 

— 

16525 

197 

URL 

16526 

229 

FflST 

16527 

43 

F 

16523 

209 

SGN 

16529 

1 

S 

16530 

31 

3 

16531 

0 


16532 

237 

GOSUB 

16533 

184 

S 

16534 

35 

7 

16535 

54 

O 

16S36 

0 


16537 

43 

F 

16538 

43 

F 

16539 

193 

AT 

16540 

as 

? 

16541 

239 

LORD 

16542 

193 

RT 

16543 

201 

TflN 

16544 

61 

X 

16545 

61 

X 

16546 

61 

X 


16514 

42 

E 

16515 

12 

£ 

16515 

64 

RND 

16517 

35 

7 

16513 

22 

— 

16519 

0 


16520 

6 


16521 

32 

4- 

16522 

126 

-•? 

16523 

238 

ÎNPUT 

16524 

128 

m 

16525 

11 e 

•? 

16526 

35 

7 

16527 

16 

c 

16523 

249 

RRND 

16529 

35 

7 

16530 

20 

= 

16531 

62 

V 

16532 

22 

— 

1S533 

136 

IM 

16534 

32 

4- 

16535 

240 

jlxst 

16536 

201 

TflN 

16537 

61 

X 


CODES fl POKER 


1 REM e£RND7tP-URL FflST 7SGN ° 
3 GOSUB BFQ 77RT ( LORD TflN XXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


SCROLL UERS LA GRUCHE 


CODES fl POKER 


a REM E(RNDF FflST SGN * 5 § GO 
SUB PI® RUN n GOSUB IgTflN XXXXXXX 
XXXXXXXXXXXX 


SCROLL UERS LE BAS 


16514 

42 

E 

16515 

16 

( 

16516 

64 

RND 

16517 

4-3 

F 

1651© 

229 

FR5T 

16519 

209 

SGN 

16520 

1 

m 

16521 

33 

5 

16522 

0 

m 

16523 

167 

16524 

237 

GOSUB 

16525 

66 

PI 


16514- 

16.515 

16516 

16517 
16513 

16519 

16520 

16521 

16522 

16523 

16524 

16525 

16526 

16527 
1652S 

16529 

16530 

16531 

16532 
15533 
16534- 

16535 

16536 

16537 
1SS38 


CODES B 


42 

E 

12 

£ ' 

64 

RND 

35 

7 

6 

G>“ 

22 

— 

197 

URL 

229 

FflST 

35 

7 

209 

SGN 

1 

a 

31 

0 

237 

3 

GOSUB 

176 

H 

43 

F 

54 

O 

0 

35 

7 

35 

7 

193 

AT 

16 

t 

239 

LORD 

201 

TRN 

61 

X 


POKER 


ORDI-5 n° 10 Décembre 1984- 11 






















































































































































































































































































































































UTILITAIRES 


Loto (ZX S 116 K) 


Faites appel au langage machine pour 
soulager votre imagination et retenir 
les numéros qui ont le plus de chances 
de sortir. (J.M. Corbisier) 




tsTncïÀïît 

rysW 







NOMBRE DE TIRRGES DEPUIS LH 
DERNIERE SORTIE DE CHOQUE NB 
SITUATION HUANT LE 3 / 34 - 


1 

a 

16 

4- 

31 

4- 

4-6 

2 

3 

17 

11 

32 

12 

4-7 

3 

5 

16 

26 

33 

2 

4-Q 

4- 

12 

19 

11 

34- 

3 

4-9 

5 

2 

2© 

90 

35 

3 


6 

2 

21 

17 

36 

13 


7 

12 

22 

6 

37 

1 


S 

3 

23 

5 

38 

1 


9 

5 

24- 

13 

39 

6 


10 

2 

25 

1 

4-0 

5 


11 

3 

26 

9 

4-1 

4- 


ia 

6 

27 

7 

4-2 

8 


13 

14- 

28 

4-1 

4-3 

15 


14- 

2 

29 

17 

4-4- 

10 


15 

36 

30 

1 

4-5 

6 



10 CLS 

£0 PRINT / , LOTO''„,,"MENU",," = 
1.INTRODUCTION DES 
RESULTATS”, , , " £ . PREVISIONS"' , , 

, ," 3.5TATISTIOUE DES SORTIES" 

, ,," 4.SAUUETH6E SUR ""K?.,, 

,,,,,"PRESSEZ VOTRE CHOIX" 

4-0 LET A=CODE INKEY$-£S 
50 IF R < 1 OR R >4- THEN GOTO 30 
60 CLS 

70 GOTO R*100 

100 PRINT "INTRODUCTION DU RESU 
LTRT DU", , ,"TIRAGE “ ; N $ , , , 

105 LET R $ =" " 

110 FOR 1=0 TO 6 
lia INPUT B 

115 PRINT TRB 4.* CI + ( 1=6) ) ; B; 

130 LET R$=At+CHRÎ B 
135 NEXT I 

130 PRINT RT 6,0;“URLIDRTION O/ 
N ?" 

135 FOR I=fl TO 5 
14.0 NEXT I 
Us PRINT RT s, s; 


150 FOR I=R TO 5 
155 NEXT I 

160 IF INKEY*=““ THEN GOTO 130 
165 IF INKEY$="N" THEN GOTO 60 

170 LET T$=A$+T* 

171 LET R=PEEK 17303+356*PEEK 1 
7304- + 1 

173 IF R >=34.3 THEN LET fi =343 

173 POKE 17304,INT tfiX356) 

174 POKE 17203,fi-256*INT (R/25S 
5 

175 FOR 1=0 TO LEN N$ 

160 IF N* (1 + 1) = “X'“ THEN GOTO 19 

0 

165 NEXT I 

190 LET N$=STRÎ ((N*£ TO I)<>“5 
3" ) ïUAL N$( TO I) +1) VV+STRÏ (U 
RL N$(I+3 TO )+(N*( TO I)=-52")) 
195 GOTO 1 

300 PRINT "NUMEROS SUSCEPTIBLES 
DE SORTIR RU TIRAGE RPR 

ES RNRLYSE",,,"DE LR MOYENNE RRI 
THMETIQUE",,,,,,,"DE LR MODRLE", 
,,,,,,,“DE LR MEDIANE",,,,,,,, “P 
E LR MOYENNE GEOMETR IQU E",,,,,,, 
"DE LR MOYENNE HRRM0NTGUE" 

350 RRND USR 16590 
390 GOTO 1 

300 PRINT " NOMBRE DE TIRRGES D 
EPUIS LA","DERNIERE SORTIE DE CH 
ROUE N0-,” SITUATION RUfiNT LE 
N $ 

310 RRND USR 17095 


320 CLS 

350 PRINT “NOMBRE DE SORTIES DE 
CHAQUE N0 DEPUIS L“"ENTREE DES 
RESULTRTS DES TIRRGES DU 

LOTO." 

360 RRND USR 17190 

390 GOTO 1 

400 SRUE "LOTH" 

420 GOTO 1 
999 rem 


NOMBRE DE SORTIES DE CHAQUE N0 
DEPUIS L-ENTREE DES RESULTATS 
DES TIRRGES DU LOTO. 


1 

0 

16 

0 

31 

0 

4-6 

2 

0 

17 

0 

32 

0 

4-7 

3 

0 

18 

0 

33 ■ 

0 

4-8 

4- 

0 

19 

0 

34- 

0 

4-9 

5 

0 

20 

0 

35 

0 


6 

0 

21 

0 

36- 

0 


7 

0 

22 

0 

37 

1 


S 

0 

23 

0 

38 

1 


9 

0 

24- 

0 

39 

0 


10 

0 

25 

1 

4.0 

0 


11 

0 

26 

0 

4-1 

0 


12 

0 

27 

0 

4-2 

0 


13 

0 

28 

0 

4-3 

0 


14- 

0 

29 

0 

4-4- 

0 


15 

0 

30 

1 

4-5 

0 



NUMEROS SUSCEPTIBLES DE SORTIR 
RU TIRRGE 3,'34 APRES RNRLYSE 

DE LR MOYENNE ARITHMETIQUE 
3 


DE LR MODRLE 
35 37 38 48 


DE LR MEDIANE 
2 12 34 39 44 


DE LR MOYENNE GEOMETRIQUE 
12 31 39 44 47 


DE LR MOYENNE HARMONIQUE 
2 8 33 34 41 


16514;116,116,49,153,73,26, 
16520 ; 74,158,74,34,75,169, 
16526 : 75,2,3,2,3,3, 

16532 ; 3,4,5,6,7,7, 

16538 ; 9,9,11,15,15,17, 

16544 ; 18,19,19,36,0,2, 
16550:2,3,3,4,1,5, 

16556 : 1,6,1,7,2,9, 

16562;2,11,1,15,2,17, 

16566 -.1,16,1,19,2,36, 

16574 : 1,0,0,0,0.0, 

16580:0,0,0/0 
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16536 :0)0j0j0j305 ; 35, 

16592 :15,63,1,50,132,64-, 

16593 : 4-2,12,64- , 35,1,132 , 

16604. 10,9,34, 133,64,9, 
16610:34,135,64,9,34,137, 

16616:64,9,34,139,64,9, 

16622:34,141,64,239,164,45, 
1662S -.15,194,160,161,226 , S , 
16634 : 193,160,225,160,225,160, 
16640 : 52,33,143,64,34,123, 
16646.64,62,0,6,62,119, 

X66S2:35,16,252,42,16,64, 

16656 : 17,6,0,25,53,132, 

16664 : 64,14,1,6,6,190, 

16670:40,7,35,16,250,12, 

16676 : 35,24,244,229,42,123, 
16682 : 64,113,253,52,123,225, 
16668 : 35,35,16,253,20,122, 
16694 : 254,21,32,220,6,19, 
16700:21,33,144,64,126,35, 
16706 : 190,56,6,79,126,113, 
16712:43,119,35,16,243,122, 
16718:184,32,233,33,144,64, 
16724 : 17,165,64,6,20,14, 

16730:1,126,35,190,32,4, 

16736 : 12,5,24,248,18,19, 

16742:121,18,19,16,238,33, 
16748: 144,64,126,229,205,29, 
16754:21,239,15,52,225,35, 
16760 : 126,254,0,32,242,239, 
16766 : 4,52,33,165,64,126, 
16772:229,205,29,21,225,35, 
16778: 126,229,205,29,21,239, 
16784: 193,2,1,192,3,39, 

16790 : 45, <4, 225,4,15,224, 

16796: 52,225,35,126,254,0, 
16802 : 32,224,239,197,2,4, 

16808: 37,193,4,229,225,52, 

16814: 205,167,14,121,254,9, 
16820 : 48,16,205,68,66,48, 
16826:14,42,133,64,205,166, 
16832: 66,34,133,64,24,3, 

16838: 239,2,52,205,39,66, 

16844 : 48,9,42,135,64,205, 

16850 : 166,66,34,135,64,205, 
16856 : 85,66,46,9,42,137, 

16862 : 64,205,166,66,34,137, 
16868: 64,205,100,66,48,9, 

16874: 42,139,64,20S,166,66, 
16880 : 34,139,64,205,134,66, 
16886:48,9,42,141,6*,205, 
16892:166,66,34,141,64,33, 
16898:132,64,126,253,190,33, 
16904 : 32,25,205,43,1S,58, 
16910:37,64,254,255,40,249, 
16916:254,254,32,10,58,38, 


16922 : 64,254,251,32,3,205, 
16928:105,8,201,52,195,241, 
16934 : 64,6,19,33,166,64, 
16940: 126,35,35,190,48,1, 
16946 : 126,16,248,33,166,64, 
16952:190,40,4,35,3S,24, 
16958:249,43,126,205,29,21, 
16964 : 58,143,64,205,29,21, 
16970 : 239,3,39,52,205,167., 
16976:14,121,254,1,201,33, 
16982 : 166,64,126,6,20,35, 
16988 : 35,134,254,10,48,221, 
16994 : 16,247,33,165,64,126, 
17000:229,205,29,21,225,35, 
1700S: 126,35,229,205,29,21, 
17012:239,1,34,4,15,52, 

17018 : 225,126,254,0,32,232, 
17024 : 239,4,35,52,24,190, 
17030 : 33,165,64,126,229,205 
17036.29,21,225,35,126,229, 
17042 : 205,29,21.239,1,5, 
17048 : 15,52,225,35,126,254, 
17054 -.0,32,233,239,5,52, 
17060 : 24,158,58,132,64,1, 
17066 : 10,255,4,145,48,252, 
17072 : 129,245,120,254,0,40, 
17078:3,198,28,119,35,241, 
17084 : 198,28,119,35,35,126, 
17090:254,118,40,250,201,62 
17096 : 1,50,132,64,42,16, 
17102:64,17,6,0,25,58, 
17108:132,64,14,1,6,6, 
17114:190,40,7,35,16,250, 
17120:12,35,24,244,205,244, 
17126 : 66,33,132,64,126,253, 
17132:190,33,202,10,66,52, 
17138:24,216,197,6,16,144, 
17144 : 6,15,20,48,250,193, 
17150:20,95,66,62,0,198, 
17156:8,16,252,214,8,79, 

17162 -.22,0,33,0,0,25, 

17168:41,41,41,41,41,25, 
17174:9,237,91,12,64,25, 
17180 : 35,205,166,66,193,121 
17186:205,169,66,201,62,1, 
17192:50,132,64,42,16,64, 
17198 : 17,6,0,25,17,2, 

17204 : 0,14,0,58,132,64, 
17210:6,6,190,32,1,12, 
17216:35,16,249,35,27,122, 
17222:131,32,238,58,132,64, 
17228: 205,244,66,33,132,64, 
17234 : 126,253,190,33,202,10 
17240:66,52,24,207,118,0, 
17246:10,2,0,251,118,0, 




Assurer ledition et la diffusion 
internationale des meilleurs 
logiciels français, c'est notre 
raison d'être. Vos,programmes 
et vos idées sont peut-être les 
best-sellers de demain. 

Auteurs de logiciels, rejoignez 
l'élite : appelez Philippe Ulrich 
au (1)387.27.27 

A bientôt. . 



ERE INFORMATIQUE 



















































































































































UTILITAIRES 


Loto (Spectrum) 


Le Spectrum vous aide à remplir vos grilles ; il ne prend pas 
l'engagement de vous faire gagner... (Y. Maugé) 



BORDER 0: INK 6: 


REM nombre de gril 


i REM „ 
a REM ^ 

3 REM 

4 REM 

5 REM_ 

10 PAPER 0: 

LS 

15 LET K=0 
20 RESTORE 
25 DATA 10: 
les ici ex ; 10 

as REM pour chaque grille;nom b 
re de numéros suivi des numéros 
Joues 

30 DATA 6,1,2,3,4-,5,6 

31 DATA 6,7,8,9,10,11,12 

32 DATA 6,13,14-, 15,16,17,18 

33 DATA 6,19,20,21,22,23,24 

34 DATA 6,25,26,27,28,29,30 

35 DATA 6,31,32,33,34,35,38 

36 DATA 6,37,38,39,40,41,42 

37 DATA 6,43,44,45,46,47,48 

38 DATA 7,1,3,5,7,9,11,13 

39 DATA 7,2,4,6,8,10,12,14 
100 DIM t(7) 

110 FOR i=l TO 6: INPUT "numéro 
" ; < i ) ; " " ; t « i ) 

120 NEXT i 

130 INPUT "complementaire ";t(7 

140 PRINT AT 0,0;"Tirage de la 
semaine:": FOR i=l TO 6: PRINT " 
t Ci); : NEXT i: PRINT "-C";t(7 
) ; ") 

150 PRINT AT 21,0;"est-ce corre 
et?" 

160 LET r $ = INKEY*: IF r* = "" OR 
cr *< >"o" AND r*<>"0" AND r*o"n" 
AND ri<>"N") TMEN 00 TO 160 
170 IF r S < >" 0 " AND rt<>"0" TMEN 
00 TO 110 
180 PRINT AT 21,0; 

190 READ nb 

200 FOR j*l TO nb 


205 
210 
220 
XT i 
230 
240 
250 


LET JUS tes0 


READ n. 
FOR i*l 


DIM b(n) 

TO n: READ b Ci) 


NE 


THEN LET Juste 


'iTA 

STR 


IF JUS 

SUB 400 
K =jus te 


FOR i=1 TO n 
FOR q■1 TO 6 

_ IF bCi)=tiq) 

=Juste+l 
260 NEXT q 
270 NEXT i 

280 PRINT AT 4 + J,0;"gri I le 
B 10-LEN STRS J ; J ;TAB 15-LEN 
$ juste;juste;" numéro"; 
te >1 THEN PRINT "S"; 

290 IF Juste>=5 THEN 00 
300 IF Juste>K THEN LET 
310 NEXT j 
320 00 TO 500 
400 FOR i =1 TO ri 
410 IF b(i)= t C7) THEN PRINT 
COMPL” 

420 NEXT i 
430 RETURN 
500 00 SUB 600 + K #10 
510 00 TO 9000 
620 PRINT AT 21,0;"Pas 
e pour aujourd'hui!" 

625 RETURN 

630 PRINT AT 21,0j"Mieux vaut C 
ela que rien ... " 

635 RETURN 

640 PRINT AT 21,0;"nous etes de 
Ja rembourse..." 

845 RETURN 

650 PRINT AT 21 , 0 ;"Le gros lot 
au prochain tirage?" 

655 RETURN 

660 PRINT AT 21,0;"Du 
sez a vo t re coeur ! !î" 

665 RETURN 
9000 FOR i=l TO 800 
9010 NEXT i 
9020 CLS 

9999 PRINT AT 10,0;"A 
prochaine. 


de chanc 


calme pen 


la semaine 

STOP 


Loto toujours 
(.ZXS 116 K) 



Voulez-vous traiter une cinquantaine 
de grilles de 6 numéros en 2 secondes 
environ ? Le court programme 
de F. Marquet met cette prouesse 
à votre portée. 
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1 REM > UINKEYÿ: QSHINKEYSsW, AC- 
S BTBB SRNDH7BTN SRND ( NEXT < ? a R 
NDÊTAN S CONT RNDtJ??@RNDY0?F0RSN 

FOR RI© RETURW 1RSN FOR RND RÊT 
URN .2RSN FOR RNDM BND RND^MGINK 
EY$ FOR a t > RND RNDLN ?"? REM R 
ND3 NR (GRILLE 52) FOR ,005 ?RSN 
JRNDUGINKEY$ RETURN ■ RSN ,INKEY 
£“ = ) I INKEYÊLN ?"?; INKEY SgllgiiSiili 

- - —TRN a B ) RINKEY$LN ? 

■•YFINKEYS SagWH TBN a s -- s = “OSS 

2 REM 

Ü£? ! TC.__ 

$ <UlS< Z89GHI____ 

b ÿ-SCL®”) -5Gg= : 3 4DUBH + 46FEafFgv + 
: 8W> jÎRüSFGHIÜKEÎ 3 : J/HKfe : J yHK« 
f”) /HKBP: YHKra-P: ) HK@P: J /K@ P : ) y 




$ - , 3! _ ___ 

_ _ <a ÊÙ 

5 DIM A3; (12) 

10 PRINT RT 0,10; 



15 PRINT RT 2,0;“ENTREZ LE TIR 
RGE ?" 

20 INPUT R* 

25 PRINT RT 2,0;" 

30 LET RDD=16685 
35 FOR 1=1 TO 12 STEP 2 
4-0 LET Y = 1 + 1 

4-5 POKE RDD, URL R$(I TO Y) 

50 LET RDD=RDD+1 
55 NEXT I 
60 POKE 16615,28 
65 POKE 16616,28 


T0 POKE 16684-, 0 
75 PRINT RT 1,10; "| 

'80 LET K=USR 16514- 
999 STOP 


16514-: 17,60,65,14-, 28,33,4-5, 
16521: 65,6,6,26,203,127,194-, 
16528 : 159,64- , 190,35,204- , 157,64- , 
16535: 16,24-3,19,195,135,64-,12, 
16542 : 201,33,232,64,126,254,37, 
16549 : 202,173,64,60,119,195,180, 
16556.64,62,28,119,43,126,60, 
16563 : 119,19,121,254,28,202,235, 
16570 : 64,254,29,202,235,64,254, 
16577:30,202,235,64,50,218,64, 
16584 .-62,1,50,44,65,235,1 , 

16591:16,0,17,218,64,205,107, 
16598:11,195,234,64,31,0,51, 
16605 .-55,0,16,44,55,46,49, 

16612:49,42,0,33,30,17,235, 
16619:26,203,119,202,133,64,58, 
16626 : 44,65,254,1,202,26,65, 
16633:1,20,0,17,5,65,205, 

16640: 107, 11,195, 25, 65T, 169,170, 
16647:184,180,177,170,128,174,17 

lé654.128,179,128,190,128,166,12 

Ô , 

16661:183,174,170,179,201,1,5, 
16668 : 0,17,38,65,205,107,11, 
16675:195,43,65,0,184,185,180, 
16682:181,201,1,10,1,0,1, 

16689:2,3,36,37,23,118,0, 


Générez vos m 





Le ZX, ordinateur à tout faire, peut aussi se transformer en maître d'hôtel 
pour vous suggérer des menus en fonction de la saison, de la rapidité 
d'exécution et du prix de revient ; pour la petite « base de données culinaire » 
vous pouvez vous inspirer de celle que nous proposons : étudier auparavant 
le codage qui précède chaque plat (par exemple le chiffre indique 
la saison). (P. Mauclair) 



10 REM 

20 REM *****GENERMENU***** 


25 REM 
30 REM 


= INITIRLISfiTION = = = 


32 LET ,MOD3=0 
35 DIM R&( 3,3 01 
40 LET ES ~ 

MBS" 


50 LET F$="VEUILLEZ RECOMMENCE 


•R, VOUS RUEZ COMMIS UNE ERREUR. 

60 LET G3>="******************* 
**********•***•" 

65 REM 

66 REM =====RFFICHRGE===== 

70 PRINT RT S■0 : G S 
SP print rt i0,4,- 


DE MENU 


a- 


90 PRINT RT 12,10; "IL 
100 PRINT RT 14,0;G$ 

105 PRINT RT 20,14;".PIERRE MRU 
CLRIR." 

110 PfiUSE 200 

120 CLS 

121 REM 

122 REM ==INTRODUCTION DES== 

123 REM = = = = =CRXTERES= = === = = 

130 PRINT "QUELLE EST LR SRISON 

3.40 PRINT RT 3,0;"TRPER "”HXU"" 
POUR HIVER" 

150 PRINT TRB 6;.PRI"" POUR P 

RINTEMPS" 

160 PRINT TRB S;.RUT"” POUR R 

UTOMNE" 

170 PRINT TRB 3;"OU ““ETE. 

180 PRINT RT 1©,1;E$ 


190 INPUT S$ 
200 CLS 
202 REM 


210 IF S$="HIV" OR S$="PRI” OR 
Sf="RUT" OR S$="ETE" THEN GOTO 2 
40 

220 PRINT FJ 

230 GOTO 140 

231 REM 

232 REM ===RUTRE CRITERE=== 

240 PRINT "QUELLE DUREE COMPTER 
VOUS PRSSERR LR PREPRRRTION DES 
PLRTS ?” 

25© PRINT RT 5,0;"TRPER 
POUR RSSEZ LONGUE” 

260 PRINT TRB 7;.POUR MO 

YENNE" 

270 PRINT TRB 8;"”"."" POUR COU 
RTE” 

280 PRINT RT 10,1;E$ 

290 INPUT C$ 

300 CLS _ 

302 rem maMsMtea;a=«m 

IF C$="..." OR C$ 

540 


) 10 


OR C 


QÈ-» b m »• 

* = THEN GOTO 

320 PRINT F$ 

-330 GOTO 250 
•331 REM 

332 REM == IL FRUT QUE C$ == 

333 REM ==FRSSE 3 DE LONGUEUR== 


’ THEN LET C*= 
THEN LET C$=‘ 


340 IF C$=", 

350 IF C$ = ", 

351 REM 

355 REM ===RUTRE CRITERE=== 

3S0 PRINT "ENTREZ MAINTENANT LE 
PRIX DE " 

370 PRINT "REVIENT APPROXIMATIF 
QUI " 
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UTILITAIRES 


380 PP. INT "UOUS CONVIENT." 

390 PRINT RT 5,0;“TAPER ""1"" P 
QUR ASSEZ ELEVE” 

4.00 PRINT TAB 6; ‘.S" *' POUR MOV 

EN" 

410 PRINT TAB 6.;.3“" POUR FRI 

BLE" 

490 PRINT AT 10,1; ES 
430 INPUT DS 
44© C1_S 

441 rem HgjBaBH ^ BæBaB^æ 

450 IF D$="l" OR D$="2" OR D$ = " 
3" THEN GOTO 480 

480 PRINT FS 
470 GOTO 390 
480 CLS 

451 REM 

482 REM = = =TIRAGE ALEATOIRE = = = 

485 LET MOD3=MOD3+l 

490 LET 1 = INT (RND*-49) +1 

500 LET L=I 

510 LET ALEA=490 

512 LET IND = 0 

520 GOSUB 750 

522 LET RS(MOD3Î=P$(I> 

530 LET U = INT (RND*49) +51 

540 LET L=ü 

550 LET ALEA=530 

552 LET IND=3 

55© GOSUB-750 

562 LET R$(MOD3+3)=PS(JJ 

570 LET K=INT (RND*49)4101 

580 LET L=K 

590 LET ALEA=S70 

592 LET IND=6 

600 GOSUB 75© 

602 LET RS(M0D3+8J=P$(KJ 

603 REM 

604 REM = = =AFFICHAGE DU MENU = = = 

61© PRINT AT O,0; QS 
620 PRINT AT 2,12;"MENU" 

630 PRINT AT 4,S;G $ 

640 PRINT AT 7,0;PS(1,8 TO ) 

650 PRINT AT 10,0;P*(J,8 TO ) 
660 PRINT AT 13,0;PS(K.8 TO î 
6 7 0 PRIN T 

680 PRINT AT 18,0;“APPUYER SUR 


""O"" OU N ^ AUTRE MENU RUE 
C LES MEMES CRITERES )." 

681 REM 

682 REM (POSSIBILITE DE REFUSJ 

690 IF INKEYS < > "N” AND INKEY$o 
"O" THEN GOTO 690 


700 IF INKEYS= 

701 REM 


THEN GOTO 480 


702 REM 


=FORMULE DE FIN=== 


710 PRINT AT 16, 0; G S 
720 PRINT AT 16,0;“VOTRE MM ^ 
QUS SOUHAITE.. " 

730 PRINT AT 19,0;“BON APPETIT 

'740 STOP 
741 REM 


750 REM 


SP ADEQUATION === 


760 IF NOT (S$=P$(L,1 TO 3) OR 
PS(L,1 TO 3)=" “) THEN GOTO AL 

77® IF MOT CS=PS(L,4 TO 6) THEN 
GOTO ALEA 

780 IF NOT DS=P$(L,7) THEN GOTO 
ALEA 

782 IF P$(L)=RS<IND+1J OR P$(L) 
=R$(IND+2J OR P$(L)=R$(IND+3J TH 
EN GOTO ALEA 

784 IF MOD3=4 THEN LET MOD3=l 
79© RETURN 

791 REM 

792 SAVE “GENERMEN®" 

793 GOTO 10 

794 5TOP 


TABLEAU PS DES PLATS 


1HUITRES 


..2SRLADE NICOI5E 


...3SOUFFLE AU FROMAGE 


.3CAROTTES RAPEES 


5 

6 

7 > 

S 

9 

10 
RUT 
11 

12 

13 

14 

15 

16 

17 

18 

19 

2© 

HIU. 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 
PRI 

31 


..1PETITE FRITURE RIVIERE 
..2SRLADE PIEMONTRISB 

.2SOUPE DE POISSON 

..3CELERI REMOULADE 

..1ESCARGOTS FARCIS 

..3SQUPE AUX POIREAUX 

.1LANGOUSTINES MAYONNAISE 

..2SRLSIFIS A LA CREME 

..3GOUGERE 

•3COMCOMBRE A LA CREME 

..1CUISSES DE GRENOUILLES 

..2CGOUILLES DE POISSON 

•2PIZZA 

..3CHOUX-FLEURS EN SALADE 

..1BOUCHEES A LA REINE 

.,1CÜQUILLES ST JACQUES 

. 1COEUP. DE PALMIER CREME 

..2ALLUMETTES AUX ANCHOIS 

..3JAMB0N CHAMPIGNONS 

.3SALADE DE RIZ 

. . 1CGKTAIL DE CRABE 

..2CERVELLE MOUTON SAUTEE 

.2AVOCAT MAYONNAISE 

..3FRAISE DE VEAU POULETTE 

..1TOURTE AUX OURSINS 

.1ASPERGES A LA CREME 

. 1CP.ABE MAYONNAISE 

..2CROISSANTS AU JAMBON 


etc. 
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Calendrier perpétuel 
(ZX8I16K) 


Les programmes de calendrier perpétuel ne sont pas d’un attrait fascinant, 
mais ils donnent facilement lieu à des variantes élégantes qui sont 
autant de bons exercices d'entraînement à la programmation, comme celui 
de M. Kourotchkine. 


1 REM "MOIS" 

2 REM = = = = = = = = = = = = = = = = =-= = = = = = 

3 REM PROGRAMME POUR ZX81 

5 REM (16K3 

6 REM = = = = = = = = = = = = = =====—=•==-=■ 

7 REM (C)M.KOUROTCHKINE 4/84 
S REM = = = = = ^ = = = = = = = = =i = = = => = = = <= 
g GOSUB 190 

10 LET 0=31 

11 LET L=5 

12 LET B=0 

13 LET X=S3 
14- LET U=1 

1S LET R $ = "033614.625035" 


20 PRINT RT 17,0;"ENTREZ LE MO 
IS ET L""ANNEE SOUS" 



21 PRINT 

22 PRINT TRB 8;"Lfl FORME MMflR. 

23 PRINT 

24. PRINT TRB 4; "POUR ARRETER T 
RPEZ FIN” 

28 INPUT K$ 

30 IF KS="FIN" THEN STOP 

31 IF LEN K$<>4 THEN GOTO 28 
35 LET A$ = ” 19”+K$(3 TO 3 

40 LET M=URL K$C1 TO 2) 

41 LET fi=URL K*(3 TO 3 

43 REM ^CONTROLE _ DU~Müïs ~~ 
45 IF (M=03 ÔR~7 m>Ï2Ô~~THEN~GÔT 

o as 
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UTILITAIRES 


4-6 CLS 
47 FR3T_ 

53 REM " "NOMBRE~DË“JOURS 

55- IP < M =4) OR“7PÎ =6 3* ~0R' — (hI=sT~ 
OR <M = 113 THEN LET 0=30 
57 IP M=2 THEN LET 0=28 
SS IP M=2 HND fl-XNT <fi./4X*4-=-0 
THEN LET 0=29 

60 REM a»n=M«a M».» g aK ! S S=3s: 

61 REM ENTREE DES MOIS 

70 DIM H4(12,14) 

71 LET MÏ(1) ="JflNUIER''+fl* 

72 LET MS(2)="FEURIER"+fi$ 

73 LET MS<33="MflRS"±A$ 

74 LET MÏ <43 ="RURIL"+fiS 

75 LET M$<53="MRI"+fl$ 

76 LET MS<63="JUIN"+RS 

77 LET MÎ <73 =" JUILLET"-HR* 

78 LET MçCS)="AOUT"+A$ 

79 LET MS<93="SEPTEMBRE"+AS 

80 LET M*< 103- =-"OCTOBRE"+RS- 

81 LET - M S f 113 = "MiîUEHESE" tR=- 

82 LET MS<123="DECEM0RE"+RS 

83 REM c»sssssesi»sssjs^ssss¥-- 

84 REM CRLCUL DU- JOUR 

SS REM <tema»aataa . = = = = ===== 


86 LET R=UAL RS<M3+J+R+INT CR.'” 
43 

87 LET R=R+1—INT (R/7)*7 

83 IF M < 3 RND R-INT (fl^43 *4=0 
THEN LET R=R-1 

89 IP R = 1 THEN LET X=27 

90 IF R=2 THEN LET X=3 

91 IF R=3 THEN LET X=7 

92 IP R=4 THEN LET X=ll 

93 IF R=5 THEN LET X=15 

94 IP R=6 THEN LET X=19 


95 REM ======================= 

96 REM EDITION. DU CALENDRIER 
07 REM B5—— —— — — — — —— —— — s— — 

98 PRINT TRB - Ï; MS <M3~“ 

99 PRINT 

100 PRINT "" - 

107 PRINT RT 3,3;"L M M J 

U S D " ; RT 4,0j“- r-.- -:- 

Ï0S~pÔR~Z=X~fÔ~27~STEP 4 

109 LET B = B + 1 

110 IF B>9 THEN PRINT RT L,2-lj 

>. 

111 IF B<10 THEN PRINT RT L, Z;B 

112 PRINT "- 


B 


114 IF B=Û THEN GOTO 10 

115 IF Z =27 THEN LET L=L+2 
120 IF Z=27 THEN LET X=3 
125 IF Z=27 THEN GOTO 108 
135 MEXT Z 

140 REM ====================== 

141 REM UTILITE DU PROGRAMME 

142 REM =========== 

_190 PRINT RT 4,10; 

199 PRINT 

200 PRINT TRB 6; 

IJOUS" 

205 PRINT TRB 6; 

LES" 

210 PRINT TRB 6; 

S ET" 

220 PRINT TRB 6; 

QUE" 

230 PRINT TRB 6; 

ISI." 

240 PRINT TRB 6; 

99." 

250 RETURN 


"tte sWaa Wg»B«=ig)!« 

CE PROGRAMME 
AFFICHE TOUS 
JOURS DU MOI 
DE L""ANNEE 
QUE RUEZ CHO 
DE 1900 S 19 


Fichier "cinéma" 


(Spectrum) 


Un clin d'œil derrière ce programme 
simple à entrer : ce fichier qui est 
consacré à enregistrer des fiches 
de cinéma (on peut en fait ficher bien 
autre chose), se présente aussi comme 
une succession d'écrans par l'utilisation 
de la sauvegarde SCREEN$. 

Cette méthode est intéressante à étudier 
pour les fichiers dans lesquels 
l'élément graphique est important et 
où la routine de correction n'est pas 
nécessaire. (F. Huynh) 




LS 


5 PAPER 7: INK 0: BRIGHT 1: 


- 1 §L-55 NT RT ®' 9; ZNK *'■ flash 
1; „Ë RIGHT 1; "FICHIER CINEMA" 

20 PRINT RT 2,0;"VOULEZ VOUS:" 

;RT 4,0; "-CREER UNE FICHE <13. 

-CHARGER UNE FICHE <23“ 

30 INPUT "CHOIX NO IF R$ 

= ”2" THEN GO TO 300a 

40 PRPER 1: CLS : PRINT RT 0,0 
; INK 4;"*********************** 
*********": PRINT ' INK 4;"***** 
***************************“ 

50 PRINT RT 1,0; INK 4;"*";RT 
1,28;"*";RT 1,31;"*" 

60 INK 7 

70 PRINT RT 3,0;“DE: " 

80 PRINT ';"RERLISE EN: “ 

90 PRINT '"UU LE: " 

10© PRINT '"DUREE: " 


110 
120 
E: " 
130 
135 
140 
150 
200 
T 1, 
205 
,29; 
210 
220 
230 
240 
250 
260 
270 
280 
290 


PRINT '"FILME EN: " 

PRINT '"CLASSE DANS LR SERT 


PRINT 
PRINT 
PRINT 
INK 2 
INPUT 


'“APPRECIATION: " 
' "PARTICULARITES: 
'"flUEC: " 


■TITRE: " ; RS : PRINT R 
l; FLASH 1;RS 

INPUT "NO: ";N$: PRINT RT 1 
INK 7; FLRSH 1; N* 

INPUT fi*: PRINT RT 3,3;fi* 
PRINT RT 5,ll;R* 
PRINT RT 7,6;R* 
PRINT RT 9,6;RS 
PRINT RT 11,9;RS 
PRINT RT - 


INPUT R$: 
INPUT RS: 
INPUT RS: 
INPUT RS: 
INPUT RS: 
INPUT RS: 
INPUT RS: 
INPUT fi $ : 


13,21; RS 
PRINT RT 15,13;RS 
PRINT RT 17,15;R® 
PRINT RT 19,5;RS 
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300 INPUT "RECTIFICATIONS ? "; R 
S: XF R$(1J="0" THEN GO TO 200 
310 INK 7 

320 SRUE NSSCREENS 
330 RUN 5 

3000 PRPER 1: INK 7: CLS 

3010 INPUT "NO DE LA FICHE R REC 

HERCHER : "J LINE N$ 

3020 PRINT RT 0,0;"VOUS DESIREZ 
CHARGER Lfl FICHE NO" 

3030 PRINT FLASH 1; BRIGHT 1;RT 
10,15;N* 


3035 INPUT "EXACT ? "JR*-: IF R*£ 
1)="N" THEN GO TO 3000 
3040 PRINT RT 20,5;"DEHRREZ LE M 
RGNETOPHONE" 

3050 LORD N*SCREEN$ 

3060 INPLIT "EST-CE BIEN CETTE FX 
CHE ? ";fl$: IF R$(1)="N" THEN GO 
TO 3000 
3070 PAUSE 4-E4 
3060 RUN 5 

9300 PRUSE 4-E4- : PRPER 7: INK 0: 

CLS 



Pour ceux qui programment couchés pendant leur loisirs, Y. Maugé a imaginé 
une routine très instructive qui fait tourner les caractères du Spectrum 
de 90 degrés ; Une application amusante de la haute définition graphique. 


w ~*+ 'I "•' v >' A (“. 

0jiiiïiüûujiLorHii:jtzoiiûù:ifli-3D3X>N u /nr-j 

I+I flJÜUT 3 il)>~ gi£-H - ">i4-'SC0 Û.CP- iflY 3>3X3'N^ J — rS£ Vsÿ 



1 

a 

3 

4 

5 


RE 
RE 
REM 
REM 

REM_ 

10 CLEflR 63999 
20 LET X=64000 
30 DIM P(8): DIM r(8; 

40 FOR a=15616 TO 16384 STEP 8 
PRINT RT 0,0;a 


80 FOR i=1 TO 8; LET p(i)=PEEK 
(a +i -1) : NEXT i 
60 FOR i=1 TO 8: LET f(i)=0 
70 FOR j=l TO 8; LET r(i)=r(i) 
+2t (8-j) * (p (j) > =2t(3-i)) 

80 IF p (j) >=2t (3-i) THEN LET p 

<j)=P(j)-2t(8-i) 

90 NEXT j 

100 POKE X+a-i-15603,rCi) 

110 NEXT i 
120 NEXT a 

130 rem va ri fi cation 
140 LET PO Ka «PEEK 23607 
150 POKE 23607,249 
160 FOR i=32 TO 127; PRINT CHR6 
i; ; NEXT i 
170 POKE 23607, POKa 
180 SRUE M caracteres"CODE 64000 
,768 



Comment mettre votre ZX au travail pour 
obtenir autant de décimales que l'on 
désire dans une division un peu corsée ? 
Essayez l'une des formules approchées 
de PI, par exemple 22/7... (J.M. Pabst) 





1 SRUE "OUOTIENl" _ 

S PRINT " ENTREZ L E DIVIDENDE, 

uis frites m msumsaS" > > > > 

7 PRINT " PUIS,ENT EZ LE,DIVISE 
IR, ET FRITEStëMSÈalteÉaa",^ ,, , -p-, 

9 PRINT "UNE FOIS LE RESULTAT 
AFFICHE,SI","VOUS DESIREZ FRIRE 
RPPRRRITRE","LR SUITE,RPPUYEZ S 
SR LR TOUCHE: 

11 PRINT "SI VOUS DESIREZ FRIR 


E UNE AUTRE OPERATION,RPPUYEZ SU 
R LR TOUCHE:“"I. 

15 INPUT fi 

16 CLS 

2© PRINT R;" DIVISE PRR “J 
30 INPUT B 
4.0 PRINT B.;" 

4-3 LET Q = INT SR/-B3 
4-4. PRINT G.;",'; 

50 LET 
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MATHEMATIQUES 


60 „„„ „„ 1002 DIVISE PfiR 356 = 

65 IF PEEK 1&4-4-2 < 4- fiND PEEK lo 

S OTO 100 2,814-60674.1573033707865163532328 

2® ESJNT S- : 8426966292134831460674-1573033707 

?Ê T 9h.5§L * 36516853932 534 25965292X34.83X4.606 

}®g ÏE ÏK&fX** ..TSH* e 2IS 74i57303370T3S5I6SS3032S8*E6966£ 

110 IF INKEVtO G THEN GOTO 1© 92134-3314.60674-157303370736516353 

= 932534.269SS292134-3314-&0S74-157303 

370736516853932834-23966292134,331 
14.0 GOTO 70 4.60674.157 


Equations (Spectrum) 


Une solution courte et élégante de L. Delreux pour la résolution de systèmes 
de deux équations à deux inconnues. 


3 CLS 170 PRINT 

10 PRINT RT 12,9;"EQUATIONS" 171 PRINT "POUR Lfl REPONSE: PRE 

11 PRINT SSER N"IMPORTE QUELLE TOUCHE" 

12 PRINT T RB 4-; “POUR COMMENCER ISO PRUSE 0 

: PRESSER UNE TOUCHE." 190 CLS 

13 PAUSE 0: CLS 200 PRINT TfiB S;fl;"X + ";B;"Y = 

U POKE 23609,70 ";E 

20 INK 7: PAPER 1 210 PRINT T RB 8;C; "X + ";D;"Y = 

3© RHO P, F O 1 - Tl R '* • cr 

40 DEF FN M(N)=INT <RND*N)+1 219 PRINT 

50 LET fl =FN MC10) 220 PRINT TfiB 4;"Lfl UflLEUR DE X 

60 LET B=FN MÏ10) EST: ";X 

70 LET C=FN MC10) 221 PRINT 

30 LET 0=FN MC 10)' 231 PRINT 

90 LET X=FN MC10) 232 PRINT TflB 4;“Lfl UflLEUR DE Y 

lOO LET Y=FN M CIO) EST: ";Y 

110 LET E=fl*X+B*Y 233 PRINT 

115 LET F=C*X+D*Y 240 PRINT TflB 8;A;"*";X;" + ";B 

120 PRINT INK 6;"L"EQUATION EST ;"*";Y;" = ";E 

:" 250 PRINT TflB 3;C;"*";X;" + " ; D 

X2X PRINT • " $.*' - y * *' ss M • p 

140 PRINT TflB 8; INUERSE 1; fl;"X ‘ 260* PRINT 

+ "; B;"Y = ";E 261 PRINT "PRESSER N"IMPORTE QU 

150 PRINT TflB 3; INUERSE 1;C;"X ELLE TOUCHE POUR UN NÛUUEflU PROB 

+ ";D;"Y = "; F LEME" 

160 PRINT 265 PAUSE 0 

161 PRINT "UÛUS DEUE2 RESOUDRE: 280 RUN 

X & Y" 290 SflUE "EQUATIONS" LINE 3 


Equations 3 e ™ degré 
(ZX St 16 K) 




mf 1 


Les mathématiciens démonteront ce programme court et précis de résolution 
d'équation du 3 e degré proposé par J. Edel (qui voudra bien communiquer 
son adresse à la rédaction...) pour décomposer les différentes méthodes 
de résolution employées. 

L'écran affiche « A = », on doit alors entrer la valeur du coefficient de X 3 ; 
dès que l'on appuie sur « Newline » cette valeur s'inscrit à côté de A = . 
L'ordinateur demande alors les valeurs de B (coefficient de X 2 ) C (de X) et D 
(terme constant) puis il affiche les solutions ainsi que la marche à suivre 
pour recommencer. 
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10 CLS 
a© LET z=© 

30 PRINT TRB 5) 


B 

B 


E3ÜRT ION 4 BU 


4.0 PR INT 
50 F'RINT "R = ") 

60 INPUT R 

70 IF fi=0 THEN GOTO 60© 

75 PRINT R 
80 PRINT 
90 PRINT 
100 INPUT 
110 PRINT 
130 PRINT 
130 PRINT "C = ") 

140 INPUT C 
150 PRINT C 
160 PRINT 
170 PRINT "D = ") 

180 INPUT I> 

190 PRINT D 
300 PRINT 

201 PRINT "SOLUTION tS) 

202 PRINT 

310 IF BiB=3*H*C THEN GOTO 700 
330 IF 81in*D*t3if>^D-2tBtC) +9JC 
*C*(4*fl*C-B*B3+36*B*B*B*D=0 THEN 
GOTO 800 

330 IF BïBOïfiïC THEN GOTO 710 
240 LET E=(-B-SOR (B*B-3*B*C3 3 / 
3 /fl 

250 LET F=(-B+SOR (B*B-3*fl*C3 3 y 
3/fl 

260 LET 0=E 
270 LET R=F 

280 IF E >F THEN LET ©=F 
290 IF ET>F“ THEN LET R = E 
300 LET P=0-1 

310 IF SGN fl=-SGN (P* (P* CR*P+B3 
+C3 +D) THEN GOTO 340 
320 LET P=P-10 
330 GOTO 310 
340 LET o=R + l 

350 IF SGN R=5GN (5*(S*(S*R+B3+ 
CJ +D) THEN GOTO 380 
360 LET S=S+10 
370 GOTO 350 
380 LET E=P 
390 LET F=G 
400 GOSUa 1000 
410 LET E=© 

420 LET F =R 
430 GOSUB 1000 
440 LET E=R 
4SS LET r^Sr 
460 GOSUB 1000 


470 IF Z=1 THEN GOTO 900 
480 PRTNT “POUR RECOMMENCER" 

49© PRINT 

500 PRINT “RPPUYER SUR UNE TOUC 
HE" 

510 IF INKEY*="“ THEN GOTO 510 
520 RUN 

600 PRINT "ERREUR IL FAUT R<>0" 
610 PRINT 
620 GOTO 480 

700 IF B*C=9*fl*D THEN GOTO 740 
710 LET Q=RND 
720 LET R=0+1 
730 GOTO 300 

740 PRINT -B/3/fl; "tTRIPLËÏ" 

750 PRINT 
760 GOTO 480 

800 LET E=(9*fl*D-B*C3^(2*B*B-6* 
A*C3 

810 PRINT E;"(DOUBLE)" 

820 PRINT 

830 IF E=0 THEN PRINT —B/"R 
840 IF E < >0 THEN PRINT. -D/fl/E/E 
350 PRINT 
860 GOTO 480 
900 LET E=(-B-R+X)/2^R 
910 IF D=0 THEN GOTO 980 
920 LET F=SQR t-4iflïD/X-(B+fl*X3 
*(B+A*X33/2/R 
930 PRINT E.; " +") F; “I" 

940 PRINT 

950 PRINT E.: "-") F; "I" 

960 PRINT 
970 GOTO 480 

980 LET F=SQR (4*fl*C-B*B3 /3/R 
990 GOTO 930 
1000 FRST 

1010 FOR P=1 TO 100 

1020 LET U=E*(E*(E*fl+B3+C3+D 

1021 LET U=F*(F*(F*fl+B)+C)+D 
1330 IF SGN U=SGN U THEN GOTO 11 

05 

1040 LET X=(E+F)/2 ■ w 

1050 IF SGN U=SGN (X*IX*(X*R+B3+ 

C) +D) THEN LET E=X 

1060 IF EOX THEN LET F=X 

1070 NEXT P 

1080 LET Z=Z + 1 

1090 IF RBS X <1E—8 RND 0=0 THEN 
LET X =0 

1100 PRINT X 

1101 PRINT 
1105 SLOU 
1110 RETURN 

9000 SRUE "EOS" 

9001 RUN 



Complexes (ZX 8118 K) 

La résolution d'équations du second degré dans l'ensemble des nombres 
complexes est une application dans laquelle le ZX8 1 révèle toute 
sa puissance de calcul. 

Le but est de résoudre l'équation az 2 + bz + c = 0 
où a, b et c sont des complexes. 

Tout complexe s'écrit sous la forme : z = x + iy ; x est la partie réelle et y la 
partie imaginaire. L'entrée des coefficients se fait de la façon suivante : 
l'ordinateur demande A( 1,1 ) qui correspond au x du premier coef, 

A( 1,2) au y du même coef, B ( 1,1 ) pour le second coef, etc. 

Rentrer 0 pour les parties imaginaires pour que les coefficients soient réels. 
(P. Homsy) 



1 REM PRSCRL HOMSY 

s rem Msmsm-m=m 
10 PRINT "RESOLUTION DE AZ2+B2 
+C=0" 


15 DIM R(3,2) 

16 DIM B(4) 

17 DIM C(4) 

20 FOR 1=1 TO 3 
25 FOR 0=1 TO 2 

30 IF 0=1 THEN PRINT RT 2*r-l, 
0.; "COEFFICIENT '*)I)RT 2*1,0)CHR£ 
(37 + 13 ) " ( " ) I) " , " ) Oî "3 — ■ . 7 
32 IF 0=2 THEN PRINT RT 2*1,2© 
; CHR$ (37+13 ; "f'i i ; " , o; "3 =. 


35 INPUT R (1,03 

40 IF 0=1 THEN PRINT RT 2*1,7) 
R (1,03 " 

42 IF 0=2 THEN PRINT RT 2*1,27 
)R(1,03)" 

45 NEXT O 
50 NEXT I 

52 IF R(1,13=0 RND fl(1,23=0 TH 
EN GOTO 1800 
55 FRST 

60 LET X=R (2,13 *fl(2,13 -R(2,23 * 
R(2,23 —4*(fl(l,13 *R(3,13 —Rtl,23 *B 
(3,23 3 

65 LET Y=2*R (2,1) *R(2,23 -4* (fl ( 
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MATHEMATIQUES 


14-5 5LOU 

XS0 PRINT RT 3/S; "Z=";C £ 1)}CHRS 
£21+£SGN Ci2) <0));RBS C 12); "I’- 
lSS PRINT RT 5/0;"Z = ”;C £3);CHR$ 
(21+(SGN CC4)<0));RBS C£4);"I" 
160 IF INKEy$='"‘ THEN GOTO 160 
165 CLS 
170 RUN 

200 IF X>=0 THEN GOTO 235 

2 10 LET B ( 1) =0 

215 LET B£2)=SQR (-X) 

220 LET B£3)=Bfl) 

225 LET B£4)=-BC2) 

230 GOTO 110 
23S LET Bfl)=SOR X 
24.0 LET B (2) =0 
245 LET B(3)=-B(l) 

250 LET B£4)=B£2) 

255 GOTO 110 
260 FOR 1=1 TO 4 

270 IF ABS CCI)<10*i-8 THEN LET 
C CI) =0 
280 NEXT I 
290 RETURN 
9799 STOP 

9900 SRUE ”COMPLEXES” 

9910 RUN 


+R (1/2) *Rt3/l) ) 

67 IF Y =0 THEN GOTO 200 
70 LET M=SQR £X*X+Y*Y) 

75 LET X2=fM+OO S2 
30 LET Y2=X2-X 
90 LET Btl)=SOR X2 
95 LET B(2)=SGN Y*SOR Y2 
100 LET B£3)=-SQR X2 
105 LET B(4)=-i*SGN Y*SOR Y2 
110 REM CALCUL DES SOLUTIONS 
115 LET C tl) = C-fi (1,1) * (R 12/ 1) -B 
Cl) ) +RC1/2) * CB(2) -R(2/ 2) )>7 £2* (fi 
(1/1) *R(1/1) +R £1/2) *fl £1/2) ) ) 

119 REH 

120 LET CC2)=(-fl!l,l)i(RC2,a)-B 
(2) ) +R £1/2) * ffl £2/ 1) -B (1) ) ) ✓ £2* (fi 
£1/1) *fi (1,1) +fi (1 z2) *fl (1,2) ) ) 

123 REM 

125 LET C £3) =f-fl £1, I) * £A£2, 1) +B 
£1) ) -fin, 2) * CRT2/2) +B (2) ) ) X £2* (R 
(1,1) *R £1,1) +R £1,2) »R £1,2) ) ) 

127 REM 

130 LET C£44=£-R£1/1)*£R£2/2>+B 
£2) ) +R£l/2) * (fl £2,1) +B(1) ) ) X £2*(R 
(1 / 1) *R£1,1) +R(1,2) *fl(1 ,2) ) ) 

135 GOSUB 260 
140 CLS 


Analyse discriminante 
(Spectrum) 


L'analyse discriminante est une puissante technique d'analyse de données. 

F. Blin s'est inspiré du programme de X. Linant de Bellefonds (la pratique 
du ZX8 1 - PSI) pour utiliser la haute définition graphique du Spectrum dans 
la représentation des points. Le programme produit une représentation d'écran 
qui discrimine les observations en autant de groupes qu'il y a de solutions 
(solution 1,2 etc.). Pour plus de renseignements sur l'analyse discriminante 
voir : Que sais-je ? n° 1 854, Bouroche et Saporta, « L'Analyse dé données ». 



d'o bse rva tio 
DIM MCNÛ/C+ 
PRINT "OBSER 


PRINT MCI/Ü) 

“Solution de 
INPUT M(I,C + 1 


18 REM fiNfiLYSE DISCRIMXNfiNTE 

11 REM _ 

1008 REM intfüducî'i'jn dc-nnees 
1820 PRIHT "cor»bien de caractère 
s 7" 

1038 INPUT C 

1040 PRINT “Combien de solutions 
■■ 

3.050 INPUT L 
1060 PRINT "Combien 
ns?" 

1080 INPUT NO: CLS 
1) 

1100 FOR 1=1 TO NO: 

URTION NO: "J I 
1110 FOR J=1 TO C 
1120 INPUT M(I,J): 

1130 NEXT U 
1140 PRINT : PRINT 
('observation: : 

1150 PRINT M(I/C+l) 

1160 PRINT INUERSE 1;"Ligne cor r 
e C te?” : INPUT R$ 

1170 IF R$<>"Q” THEN LET IaX-1 
1180 CLS : NEXT r 
1200 REM centre de gravite 
1210 DIM G(L,C+1): FOR 1=1 TO NO 
1215 LET R=M£I,C + 1): FOR U=1 TO 
C: LET G(R,U)=G(R/U)+MCI,ÜX 
1220 NEXT U: LET G(R/C + 1) =G £R , C + 
1 ) +1 : NEXT I 

1230 FOR 1=1 TO L: FOR U=1 TO C 
1240 LET G £1, J) =G ( I ,U) /'G £1 , C+l) 
1250 NEXT J: NEXT r 
1270 STOP 

1320 PRINT "REDUCTION EN COURS" 

2000 REM Réduction, données 

2020 FOR 0 = 1 TO C 

2040/ LET T=eN LET 3=0 

2100 FOR 1=1 TO L 

2120 LET S=S+GCI,U)*6£I,U) 

2140 LET T=T+G£I.,J) 

2160 NEXT I 


2180 LET T=T/L 

2200 LET E=SQR £SXL-T*T) 

2300 FOR 1=1 TO L 

2320 LET GCI/J) = CG(I,<J) —T) SE 

2340 NEXT I: NEXT U 

2400 FOR U = 1 TO C: FOR I==l TO L 

2440 PRINT "Gt“; r; " , U; ”)” ,G £1, 

■J) : NEXT I:_ PRINT 

2450 NEXT U: STOP 

2460 REM 

Mat.symétrique 
: PRINT "SYMETRISATION 


FOR 

LET 

FOR 

LET 

NEXT 


2600 REM 
2610 CLS 
EN COURS 
2620 DIM 
2680. 
2720 
2740: 
2780 
2780 
2800 
2320 
2860 
2870 
2900 
2940 
2970 
3000 
3010 
3020 
3040 
3050- DIM 
3100 FOR 


C: FOR Fsê;1 T& C 


R (C ,C) 

G = 1 TO 
S=0 

K=1 TO L 

S=S+G£K/F) *G£K,G) 
K 


LET fl CF/G) =S/L 
NEXT F: NEXT G; CLS 
PRINT "Corrélations" 

PRINT 

FOR Ü=1 TO C: FOR I=J TO C 
PRINT fid/U): NEXT I 
PRINT : NEXT U: STOP : CLS 
REM +grande UP 
PRINT "RECHERCHE DES U. P." 
PRINT 

DIM U (2 5 : DIM X £ C .. 2 > 

Y ( Cï : LET 0=1 
1=1 TO C: LET XCI,U)=1 


3170 NEXT I: LET U0=C/- 2 
3220 FOR K = 1 TO 40 
3240 FOR 1=1 TO C: LET Y(I)=0 
3280 FOR Ü=1 TO C 

3300 LET Y f I) =Y £ I) +fl £1 ,U) *X £<J, U) 
3320 NEXT J: NEXT I 
3360 LET U1=Y(1)XX(1/U) 

3380 LET Z =0 : FOR 1 = 1 TO C 
3410 IF BBS CY(I))>Z THEN LET Z= 
Y £1) 

3420 NEXT I: FOR 1=1 TO C 
3440 LET X (I/U) =Y(I)xZ: NEXT I 
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34-60 IF fiBS CU0-U1J < 1E —S THEN GO 
TO 3560 

34-60 LET U0=U1: NEXT K 

3520 PRINT FLASH 1;"NON CONUERGE 

NCE";U1 

354-0 STOP : CLS 

3560 PRINT "Uaieur propre:";U1 
33T0 LET U(U1=U1: PRINT 
3590 PRINT “Uecteur propre:" 

3600 FOR 1=1 TO C: PRINT X(I,U) 

3630 NEXT I: PRINT 

36S0 IF U =2 THEN GO TO 4.000 

3660 REM Déflation 

3660 LET P=0: FOR 1=1 TO C 

3720 LET P=P+X(I,1)*X(I,1) 

374-0 NEXT I: LET P=U1/P 
3760 FOR 1=1 TO C: FOR J=i TO C 
3820 LET A(I,J)=A(I,J)-P*X(I,1)* 
X CO, 1) 

364-0 NEXT J: NEXT I 

3SS0 LET U=2: GO TO 3100: STOP 

4-000 STOP : CLS 

4.010 REM Coordonnées points 

4020 DIM R VNO , 2 > : FOR U = 1 TO 2 

4050 GO SUB 4500: FOR 1=1 TO NO 

4070 LET S =0 : FOR 0 = 1 TO C 

4100 LET S=S+M II,J) *X(O,U) 

4120 NEXT O: LET RCI,U)=S 
4140 PRINT RT 0,6;"OBSERURTIONS” 
4150 PRINT RT I,1&*(U=21 ; A(I,U) 
4160 NEXT I: NEXT U: STOP 
4200 DIM B(C,2) 

4240 PRINT RT 0+(NQ+2J *CNO+C<201 
,7j"URRIRBLES" 

4260 FOR U = 1 TO 2: FOR 0 = 1 TO C 
4300 LET B<Ü,UJ=XCU,U)*SQR tUfUJ 
) 

4320 PRINT RT U + CN0+S) *CNO+C<20} 

, 16* tUmSt ; B (O, U) 

4340 NEXT O : NEXT U: STOP : CLS 

4420 GO TO 5000 

4500>LET 6=0: FOR 1=1 TO C 


4540 LET S=S+XCI,U)*X£I,U) 

4560 NEXT I: FOR 1=1 TO C 

4600 LET X (I,U) =XtI,U) xSQR S 

4620 NEXT I: RETURN 

5030 LET Z=0 

5010 FOR U=1 TO 2 

5030 FOR 1=1 TO NO 

50S0 IF RBS R CI,U) >Z THEN LET Z = 
RBS FUI,U) 

5060 NEXT I: NEXT U 
5090 REM 

6000 REM Projection 

6010 LET U=1 

6020 PLOT 128,0; DRRU 0,175 
6030 PLOT 0,86: DRRU 255,0 
6040 PRINT RT 0,17;"F2“ 

6050 PRINT RT 10,30; "Fl" 

6100 FOR 1=1 TO C 

6200 PRINT INUERSE 1;RT 11-BCI,2 
) *10*U,B CI, Il *10*0 + 16;CHR* C64 + I 
): NEXT I 

6300>FOR 1=1 TO NO 
6320 LET F1=R(1,1)*86*U/2+128 
6330 LET F2=RCI,2)*86*0x2+86 
6340 PLOT Fl — l',F2 — 1: PLOT F1-1,F 
2: PLOT F1,F2 — 1: PLOT F1.F2 + 1: P 
LOT Fl+1,F2—1: PLOT F1+1.F2 
6350 GO SUB (7000+100*H(I,C+lJ) 
6400 NEXT I 

6500 IR INKEY$="" THEN GO TO 650 
0 

6520 IF INKEY$="7" THEN LET 0=W* 
1.05 

6530 IF INKEY$="S" THEN LET 0=0* 
. 95 

6540 CLS : GO TO 6020 

7100 PLOT F1-1,F2+1: PLOT Fl+1,F 

2+1: RETURN 

7200 'PLOT F1, F2 : GO TO 7100 
7300 PLOT Fl,F2+2: PLOT F1-2,F2- 
1: PLOT Fl+2,F2—1: RETURN 
7400 PLOT Fl,F2: GO TO 7300 


Taquin 

Un « inédit » de J. Tourais : un jeu de taquin qui tient aussi du Rubik's Cube. 
Les explications sont données dans la partie BASIC du programme. 




0WEM 725 USsRND RETURN 54" J 7 
LN THEN RNDS B RETURN 64”5K°LN 

RUN RMD-5 TO COPY y S RETURH 74 "5 
f LN RUN RND5S X > RETURN SegSJM&R 
NDTRN )G LN THEN RND5 COPY COPY 
6^RND.È4 FOR tft»E*lSRND ; O TflN UjaRND 
CHR$ 0?Bj?LEN 5K “R" C SRUE ? ; FOR 
EÊRND: FOR TAN UaRMD g?.’ PAUSE 
Nt>,§"" ÆnEIRND ..G TAN 57 76. INKEYS 
TAN 7 ? 7lg IN K E Y g . 



_ _ J ? LN CPI) ISP EÊRND; 

GOSUB "lIMKEYS.-iy®:, ??-: C IF STR$ 

): :SGN $4 LORD TAN Z"" M _ CLE 

AR THEN §SOR 7 THEN_SSOR ?|®50R 
COPY RETURN 0SQR JÜSSR Ü5QR 
§SGR @NOT LORD IM Z”" CLS S 

RUE Z"” Z""FRNDZ"" Z”” _Z"" Z 

- - 1£345&73 b 



Ê57PI FRST 5SPI FRST EÊRND7 FOR 
, RETURN 

8195 SRUE RT LPRINT ^*K"?TRN >77 
<C LORD FRST ,'<=E£RNDJS) : } J*= ; O 7 
C CLS )$ $4 PAUSE TRN E.INKEŸ$? 
RETURN T4b ? RETURN 7COS UflsRNDYYD 
S**ï*?UœRNDC.HR$ 0fe?76 . IMKEY =TRN 
E. INKEt'îF GOSUB 7LEN BHisRNDNOT L 
PRINT FRST SJ GOSUB 7LEN 0M œ RNDNO 
T LPRINT LET 76.INKEY$TRN E.INKE 
VÎ7/ PLOT KKKKKKKKKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKKKKKKKKKKKK.KKK.K.KK.K 
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKKKKK &,77? 

T^TTTTTT'W U?7 
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REFLEXION 


3 REM "TfiQUIN" 

7 LET K=USR 17287 

S LET K.—USR 16659 

10 INPUT fi 

20 IF fi = l OR fi=2 OR fi =3 OR fl=4 

THEN GOTO 30 
25 GOTO 10 

30 POKE 16669.(-33+(64ïfl)) 

32 LET K=USR 13927 

33 LET K=USR 17337 

37 PRINT HT 5,15;"LES MOUUEMEN 
TS";fiT 6,16; "SE FONT SUR"; HT 7,1 
3;"Lfi GRILLE DU HfiUT" 

38 PRINT HT 13,16;"CETTE GRILL 
E" : RT I4,18;"UOUS SERT"; RT 15,16 
;"DE REFERENCE" 

39 PRINT HT 21,14; "FRITES ""NE 

ULINE. 

4-0 INPUT fi* 

4-2 LET K=USR 17337 
4-4. PRINT HT 5, 15; "fi CHAQUE COU 
P" ; fiT 5,17; "INTRODUIRE";HT 7,17; 
"2 CHIFFRES" 

4.5 PRINT RT 9,13; "LE PREMIER I 
NDXQUE"; RT 10,15; "LE DEPLACEMENT 
";RT 11,12;"5-UERS Lfi GAUCHE";fiT 
12,12;"6-UERS LE BfiS";fiT 13,12; 
"7-UERS LE HfiUT",HT 14,12;"S-UER 
S Lfi DROITE" 

46 PRINT fiT 16,12;"LE DEUXIEME 
INDIQUE";HT 17,13;"LE N. DE Lfi 

LIGNE";AT 18,14; “OU DE Lfi COLONN 
E” 

47 PRINT HT 21,14;"FAITES ""NE 

ULINE- 

48 INPUT RS 

49 LET R=U5H 17337 

50 PRINT HT 5,14;"POUR REUENIR 
EN"; HT 6,12; "RRR1ERE, FRITES ""S 

OS;;""; HT 21,14;"FAITES “ “NEWLINE 

51 INPUT HS 

52 LET K=USR 17337 
54 GOTO 2000 

60 INPUT RS 

62 IF RS="" THEN STOP 

65 IF fiS="SOS" THEN GOTO 1000 

66 IF LEN fiS 0 2 THEN GOTO 60 
70 POKE 16514, GODE R$C1) 

S0 POKE 16515,CODE fi$t2J 
90 RfiND USR 16518 

92 IF PEEK 16514 00 THEN LET K 
=USR 17360 
100 GOTO 60 

1000 PRINT RFF 9, 13; "POUR REUENIR 
fiU JEU" ; AT 11,17; "FAITES " 

1050 PRINT HT 16,13;"JOUEZ EN "; 
1060 RfiND USR 17396 
1070 INPUT HS 

1080 IF fi$ O •■£" THEN GOTO 1090 

1082 RfiND USR 17337 

1083 RfiND USR 17432 
1085 GOTO 60 

1090 LET K=USR 16518 
1100 GOTO 1050 

200® PRINT RT 5,16;"UOULEZ UOUS" 
; HT 6, 14; "QUE JE MELANGE";HT 8,1 
7;"N POUR NON" 

2010 INPUT RS 

2020 IF fi S —"N" THEN GOTO 2100 
2030 PRINT fiT 12,12;"NIUEHU DE D 
IFFICULTE";HT 15,19,"1 fi 10" 

2035 INPUT fi$ 

2040 FOR 1=1 TO C(URL fi$-13*3+5) 
2050 POKE 16514,CINT (RND#4J)+33 
2060 PQKE 16515,(INT (RND*7J)+29 
2065 LET K=USR 16518 

2070 IF PEEK 1651400 THEN LET K 

=USR 17360 

2080 NEXT I 

2100 LET K=USR 17337 

211© GOTO 55 


16S14 ai 
16522 21 
16530 40 
1S53S 20 
16546 21 
16554 06 
16562 21 
16570 RF 
16573 CD 
16586 40 
16594 84 
16602 EB 
16610 IC 
16613 26 
16626 0C 
16634 85 
16642 C0 
16650 7E 
16658 C9 


1E 01 
20 06 
21 01 
SB 21 
DF FF 
21 07 
00 16 
32 82 
DE 40 
lfi H7 
40 13 
36 00 
47 HF 
01 10 
40 19 
6F 18 
00 06 
12 EB 


3fi 82 
23 00 
18 &D 
01 CD 
SD FE 
CD F7 
FE 24 
C9 11 
FF FF 
EB 06 
12 EB 
3fi 83 

ce 21 
6F 19 
C9 3fi 
84 40 
2fi 84 
F7 EB 


40 FE 
CD DE 
FE 22 
F7 40 
23 20 
40 21 
28 05 
2C 00 
22 84 
09 HR 
10 F7 
40 D6 
30 02 
EB 2fi 
83 40 
lfi R7 

40 19 
36 30 

41 09 


16666 46 
16674 88 
16682 88 
16690 00 
16698 00 
16706 00 
16714 00 
16722 88 
16730 88 
16738 80 
16746 8S 
16754 88 
16762 80 
16770 30 
16778 88 
16786 88 
16794 80 
16802 80 
16810 80 
16818 80 
16826 80 
16834 88 
16842 88 
16850 SS 
16SSS 88 
16866 04 
16874 01 
16882 04 
16890 01 
16898 04 
16906 01 
16914 04 
16922 01 
16930 CD 
15938 40 
16946 06 
16954 D5 
16962 EF 
16970 FD 
16978 4B 
16986 00 
16994 00 
17002 EF 
17010 FB 
17018 07 
17026 00 
17034 00 
17042 00 
17050 23 
17058 86 
17066 1D 
17074 80 
17082 85 
17090 S0 
17098 01 
17106 1F 
17114 80 
17122 03 
17130 03 
17138 30 
17146 80 
17154 80 
17162 80 
17170 23 
17178 80 
17186 3F 
17194 2E 
17202 21 
17210 2fi 
17218 80 
17226 80 
17234 1D 
17242 80 
17250 80 
17258 80 
17266 80 
17274 80 
17282 80 
17290 ES 
17298 23 
17306 18 
17314 El 
17322 FE 
17330 79 
17338 0C 
17346 14. 
17354 0D 
17362 41 
17370 4C 
17378 92 
17386 40 
17394 41 
17402 CS 
17410 32 
17418 6F 
17426 Fl 
17434 41 
17442 30 
17450 30 
17458 30 
17466 30 
17474 30 
17482 30 
17490 30 
17498 30 
17506 30 
17514 30 
17522 30 


41 88 
88 88 
88 -88 
88 88 
88 88 
88 88 
88 88 
88 88 
88 80 
80 80 
80 80 
80 80 
80 80 
80 80 
80 80 
80 80 
80 80 
88 80 
88. 80 
88 80 
88 88 
80 88 
80 88 
80 88 
80 87 
©4 02 
01 87 
04 02 
01 87 
04 02 
01 87 
04 02 
01 11 
8F 01 
1D d.1 
23 13 

19 DI 
00 08 
4F DE 
FF FE 
0 © 00 
00 00 
0 © 00 
00 00 
00 00 
00 00 
00 00 
1F 20 
84 03 
05 05 
80 80 
83 05 
84. 1E 
30 80 
03 01 
80 80 
03 03 
03 03 
80 80 
80 80 
21 22 
80 80 
80 80 

30 80 
34 3fi 
38 28 
1D 1E 
3B 34 

31 31 
60 80 
80 80 
80 8© 
80 80 
80 80 
80 80 
80 80 
80 80 
0C 21 
ES 2R 

76 20 
7E 23 
30 0B 
El C9 
E5 18 
00 0E 
23 1© 
F2 C9 

20 04 

40 57 
17 57 

77 23 

41 2B 
ED 6F 
El E5 
83 40 
41 C9 
30 30 
30 30 
30 30 
30 30 
30 30 
30 30 
30 30 
30 30 
30 30 
30 30 
30 30 
30 30 


88 88 
88 88 
88 00 
88 00 
88 00 
88 00 
88 88 
88 88 
80 80 
88 88 
88 88 
88 88 
88 88 
88 88 
88 88 
80 80 
80 80 
88 88 
88 88 
80 80 
88 88 
80 80 
80 80 
BS 88 
04 87 
86 06 
06 86 
01 02 
04 87 
86 06 
06 86 
01 02 
45 00 
2fi 0C 
0E 08 

10 Ffi 
0D 20 
00 00 
BF D0 
BF D0 
BF D0 
BF D7 
3F C0 
3F C0 
3F C0 
3F C0 
3F C0 
21 22 
01 87 
82 85 
80 80 
05 85 
60 30 
1E 02 
01 02 
80 80 
03 03 
03 03 
80 80 
80 80 
80 80 
22 23 
80 80 
80 80 
31 2fi 
2D 34 
1F 20 
39 37 
2fi 0F 
80 80 
80 80 
S© 80 
80 80 
80 80 
80 80 
80 80 
80 80 
44 42 
0C 40 
03 13 
ES C5 
4F 7E 
12 23 
DB 2fi 

11 06 
FB 11 
2fi IB 
70 FE 
3E 29 
3R 83 
22 IB 
7E 07 
CS IC 
fiF ED 
D7 El 
2R IB 
30 30 
30 30 
30 30 
30 30 
30 30 
30 30 
30 30 
30 30 
30 30 
30 30 
30 30 
30 30 
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Yam (ZX SI 


Si vous ne connaissez pas les règles du 
jeu de Yam, ce n'est pas grave, 
le programme de M. Kourotchkine vous 
pilote très obligeamment dans ce jeu 
de dés où les réactions de l'ordinateur 
sont très rapides. 




1 REH "YftM" 

2 REM (C)M.KOUROTCHKINE 84 

3 REH PROGRAMME ZX61 (16KÏ 

4 REM- 

5 REM - GOSUB RU REGLEMENT - 

6 REH - 

7 GOSUB sas 
6 CLS 

9 LET T7=3 

10 LET F=T? 

11 LET R=T7 

12 LET B=T7 

13 LET C=B 

14 LET Tfl=T7 

15 LET H$="0" 

16 LET TB=T7 

18 DIM fl$(S,4) 

19 DIM BS<6,4) 

20 DIM 3 

22. 2 EM — — — — ———— — — — — — — — — — — — — — — 

22 REM — DESSIN DES DES - 

23 REM- - - 

25 LET BÉtli = " jS1 " 

30 LET B* (U =-a™§ " 

35 LET CS(1 ) =RS (13 
40 LET " 

45 LET RS (23 ="HB1 " 

45 LET BS(23 =R S(13 
47 LET CS (23 . ="ÉW«BB " 

50 LET AS(3)=RSC2) 

51 LET B$(33=BÏ(13 

52 LET C$(33 =C S(2 3 
55 LET RS (43 ="#@‘1 " 

!-| T B$(43=R$(13 
57 LET CS(43 =RS(43 
6? f-gT R$ (53 —RS <43 

lâ hll g* (5Î =bs(13 

Ü hil CS(53=fi$(43 
t? hij «$(<=) =RS (43 
64 LET B$(S3=RS(43 
LET ÇS<53=fiI(43 

66 LET Z = 1 

67 LET PS=" 

68 REM -- 

69 REM CADRE DE MARQUE - 

70 REM -<-■- 

71 LET 0$ = "-" 

72 FOR 0=1 TO 20 STEP 2 

73 PRINT RT 0,18;O* 

74 NEXT O 

75 PRINT RT 2,18;"- YRM,S -- 

~"^2I T 4,25; RT 6,13 

; 2; RT 6,25; " + •’; RT S, 19; 3; RT 8,25 
;"C";RT 10,19;4;RT 10,25;“F";RT 
12,19;5;RT 12,25; "S";RT 14,19;6; 
RT 14,25; -Y"; RT 16,19, *'R";RT 16, 

B 

76 IF 2=13 THEN PRINT RT 21,2; 
"*** POUR REJOUER ENTREZ U ***" 

77 IF Z=13 THEN INPUT H® 

78 IF HS="U" THEN GOTO 8 

79 IF Z=13 THEN STOP 

80 IF Z < =7 THEN PRINT RT 1,1;" 
FRITES DES ”* Z 

81 IF Z=7 THEN PRINT RT 1,8;"U 
N MOINS " 

82 IF Z=8 THEN PRINT RT 1,11," 
PLUS " 

83 IF Z=9 THEN PRINT RT 1,11," 
CARRE" 

84 IF Z=10 THEN PRINT RT 1,11; 
"FULL " 

85 IF Z=ll THEN PRINT RT 1,10; 
"E SUITE" 

86 IF Z=12 THEN PRINT RT 1,8," 
UN YRMS 


39 LET T = 1 

90 PRINT RT 20,0;PS;PS;Pÿ;" 

Il |SS NT OT ai,0;Ps,PS;P*;" " 

92 REM -- 

93 REM - LRNCEMENT DES DES -- 

94 REM - 

95 LET R1 = INT (RND*63 +1 
98 LET R2 = INT (RND*63 +1 

97 LET R3 = INT (RND*63 +1 

98 LET R4 = INT <RND*6) +1 

99 LET R5 = INT (RND*63 +1 

100 REM - 

101 REM - IMPRESSION DES DES - 

102 REM - 

103 PRINT RT 5,3; RS(R13 ; RT S, 3; 
(RI); RT 7,3; C$ (RI) ; RT 8,3; DS; A 

T 5,9;RS(R2) ; RT S,9;BS(R23 ; RT 7, 

9 ; C $ ( R2 ) ; RT s,9; DS; RT 10,6,-A$(R3 

3 ; RT 11,6;B$(R3) ; RT 12,5;CS(R33; 
RT 13,6;DS;RT 16,3; RS(R4) ; RT 17, 
3; B$(R4) ; AT 18,3,C$(R43; RT 19,3; 
D$;RT 16,9;RS(R5) ; RT 17,9;BS(R53 
; RT 18,9;CS(RS) ; RT 19,2; DS;RT 3, 

4 ; 1 ; RT 3,10 ; 2 ; RT 8,7; 3 ; RT 14,4;4 
; RT 14,10; s 

105 IF T<3 THEN GOTO 182 

106 PRINT RT 20,0; PS; PS; PS,-" 

107 PRINT RT 21,0;PS;PS;PS;" 

108 PRINT RT 21,2;"*** PATIENTE 
Z ÜE CALCULE ***" 

110 DIM T(12) 

111 REM--- 

112 REM -- CALCUL DE VALEUR -- 

113 REM-DE CHRG3UE DES. 

114 REM - 

115 FOR P=1 TO S 

116 IF R1=P THEN LET T(P)=T(P) + 

1 

117 IF R2=P THEN LET T(P)=T(P)+ 

1 

lis IF R3=P THEN LET T<PÎ=T(P)+ 

1 

119 IF R4=P THEN LET T (P; =T <P3 + 

X 120 IF R5=P THEN LET T(PÏ=T(P)+ 
1 

121 IF Z=P THEN LET T(P)=T(P)*P 

122 IF Z=7 THEN LET T(Z)=T(Z)+T 

C 123 P IF Z=3 THEN LET T(Z)=T(Z)+T 
(P) *P 

128 IF (Z=9 RND T (P) >=43 THEN L 
ET T (Z) =20 

129 IF (Z=10 RND T(P)=3) THEN L 
ET A = 1 

130 IF (Z=10 RND T(Pl=2) THEN L 
ET B = 1 

132 IF (Z=12 RND T(P)=5) THEN L 
ET T (12) =50 

133 IF (Z=ll RND T(P)=1) THEN L 
ET C=C+1 

134 NEXT P 

135 IF (Z=10 RND R+B=2) THEN LE 
T T (Z) =30 

136 IF (Z=ll RND C=5) RND (Rl+R 
2+R3+R4+R5=X5) OR (Z=X1 RND 0=5) 

RND (R1+R2+R3+R4>R5=203 THEN LE 
T T(11)=40 

137 IF Z <7 THEN LET TR=TR4-T(Z) 
_ r 138 2 IF Z <7 RND T (Z) > = 10 THEN LE 

139 IF Z<7 RND T(Z)<=9 THEN LET 
Y =22 

140 IF Z=i THEN PRINT RT 4,Y;Tt 

Z 3 
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X 

LU 


LU 

C£ 


^142 IF Z=2 THEN PRINT RT 6,Y;Tf 

^144 IF Z =3 THEN PRINT RT 8,Y;T{ 

14.6 IF Z=4 THEN PRINT RT 10,Y; T 

<Z3 

148 IF Z=5 THEN PRINT RT 12,Y,T 
(Z) 

149 IF Z=6 THEN PRINT RT 14,Y;T 
(Z) 

150 TF Z <7 RND TR >=50 THEN LET 
T"R t=Tfl 4*20 

1.51 IF Z <7 RND TR >=80 THEN U.ET 
TA=Tfi+10 

152 IF Z=6 THEN PRINT RT 16,21; 


TR 

153 IF Z- 


THEN LET T7=T (Z) 

THEN LE 


155 IF Z=3 RND T7>=T(Z3 
T T (Z) =0 

156 IF Z>6 RND T(Z)>0 THEN LET 

Y =27 

157 IF Z>6 RND TtZ)=0 THEN LET 

Y =28 

160 IF Z=7 THEN PRINT RT 4,Y,T< 
Z) 

166 IF Z=3 THEN PRINT RT 6,Y;Ti 
Z) 

167 IF Z=9 THEN PRINT RT 8,Y;Tt 
Z) 

168 IF Z=10 THEN PRINT RT Z,Y;T 
(Z3 

169 IF Z=ll THEN PRINT RT 12,Y; 
T (Z) 

170 IF Z = 12 THEN PRINT RT 14 , Y, 4 
T (Z) 

172 IF Z >6 THEN LET TB=TB+TCZ3 

173 IF Z=12 THEN PRINT RT 16,27 
TB 

177 IF Z=12 THEN PRINT RT 18,19 
,' "TOTAL = " ; Tfi+TB 
180 IF T =3 THEN LET Z=Z + 1 
131 IF T=3 THEN GOTO 76 

182 PRINT RT 20,0;"COMBIEN DE D 
E(S3";AT 21,0; "UOULEZ UOUS REJOU 
ER." 

183 INPUT N$ 

184 IF N$>"5" THEN GOTO 183 

185 IF N$="." THEN GOTO 183 

186 IF N$=" ” THEN GOTO 183 

187 IF LEN N$ >1 THEN GOTO 183 
190 IF NS="5" THEN LET T=T+1 

JE N*="0" THEN LET T=3 

192 JF N$="0" THEN GOTO 105 

193 IF N$="5" THEN GOTO 30 

194 IF N$ >"1" THEN PRINT RT 21, 
LESQUELS 7“ ; P*; P*.; RT 20,0.; P$ 

'195 IF N$="l" THEN PRINT RT 21. 
Si" LEQUEL 7";P$;P$;RT 20,0;PS;P 
S; PS 

196 INPUT.1$ 

197 PRINT RT 21,0; PS; PS; PS; " 

198 GOTO 215 

200 REM-- 

202 REM - CONTROLE ENTREES 

203 REM--- 

204 IF NS=”1" THEN LET X$="DE" 

205 IF NS >"1" THEN LET X*="DES" 

210 PRINT RT 21,3;"**-* ERUX REU 

ouez ";ns;" ";xs;" ***“ 

211 INPUT IS 

212 PRINT RT 21,0; PS; PS; P$; “ " 

215 IF LEN ISOURL NS THEN GOTO 
204 

220 IF ISÏ1)>"5" THEN GOTO 204 

221 IF I$(1)="0” THEN GOTO 204 

222 LET M=1 

223 FOR K=M+1 TO URL NS 

224 IF ISÎM)=I$(K) THEN GOTO 20 

^226 IF 1$ CK) ="0“ THEN GOTO 204 

228 NEXT K 

229 LET M=M#1 

230 IF M(URL N$ THEN GOTO 223 

232 REM — — — — — — — — — — — — — — — — — “ — — 

233 REM - LANCEMENT DES DES - 

234 REM - 

235 FOR X=1 TO URL NS _ „ 

236 IF URL I*IX)=1 THEN LET Rl= 
INT (RND*6)+1 

237 IF URL I$(X3=2 THEN LET R2= 
INT (RND+63+1 

238 IF URL I$CX)=3 THEN LET R3= 
INT (RND *6) +1 

239 IF URL IS(XJ =4 THEN LET R4 = 
INT (RND*8)+1 

240 IF URL I$(X)=5 THEN LET R5= 
INT (RND+63 +1 

250 NEXT X 
300 LET T =T + 1 
500 GOTO 100 

510 REM - 

520 REM - REGLEMENT DU YRMS - 

530 .REM - 

800 PRINT TRB 7;"REGLES DU YRMS 

604 PRINT TRB 7;“- 


"- RUEC 5 DES ET EN 3 
"- FRITES DRNS L ORDR 
LE PLUS DE 1,2,3,4 


605 PRINT 

810 PRINT 

COUPS." 

611 PRINT 
E INDIQUE. 

612 PRINT 
,5 OU 6." 

615 PRINT 

617 PRINT 
IR >=50. 

618 PRINT 
I R >= 60. 

619 PRINT 

620 PRINT 

PLUS." 

621 PRINT 
MOINS." 

622 PRINT 
NTIQUE5." 

623 PRINT 

IDENTIQUES.“ 

624 PRINT "(S)SUITE 
*3 ,3,4,5,6." 

625 PRINT "(Y)YRMS 
NTIQUES." 

626 PRINT 

527 PRINT "- LR MRRQUE EST AUTO 
MRTIQUE." 

628 PRINT 

650 PRINT TRB 10; " 

800 PRINT RT 21,1;"POUR JOUER T 
BPER J ET NEULINE" 

810 INPUT U* 

820 CLS 

900 IF d$="ü" THEN RETURN 


■- BONUS = 
■- BONUS = 

1 (-3 MOINS 
’ (+3 PLUS 
1 CC)CARRE 
" <F3 FULL 


+ 20 PTS S 
+ 30 PTS S 

MOINS QUE 
PLUS QUE 

4 DES IDE 
3+2 DES 
1 , 2 , 3 , 4,5 

5 DES IDE 


FRITES UN YRMS 

YRM,S -- 

1 

12.-8 

2 4 +26 

3 6 C 2© 

4 8 F 0 

5 15 5 © 

S 6 Y 0 
R 41 B~54~ 

TOTAL~=~3s" 

*** POUR REJOUER ENTREZ .J *** 



REGLES DU YRMS 


- RUEC 5 DES ET EN 3 COUPS. 

- FRITES DRNS L ORDRE INDIQUE. 

- LE PLUS DE 1,2,3,4,5 OU 6. 

- BONUS = 

- BONUS = 


+ 23 PTS SI R :•= 56. 
+ 30 PTS SI R :•= 60. 


C-3 MOINS = MOINS QUE PLUS. 

(+3 PLUS = PLUS QUE MOINS. 
(C)CRRRE = 4 DES IDENTIQUES. 

(F)FULL =3+2 DES IDENTIQUES. 
(SJ SUITE = 1,2,3,4,5*2,3,4,5,6. 
(Y)YRMS = 5 DES IDENTIQUES. 

- LR MRRQUE EST RUTOMRTIQUE. 

POUR JOUER TRPER J ET NEULINE 
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Goto go (IX 


Pour s'initier aux finesses du jeu de GO 
— que certains fanatiques tiennent 
pour plus génial que les échecs — sans 
faire l'acquisition onéreuse d'un GOBAN. 
Chaque joueur doit entrer les coordonnées 
du point où il veut jouer ; 
petite contrainte : il faut aussi entrer 
les coordonnées des pions pris. 

(F. Payant) 





30REM HaiBH iM il 
4- GOTO 10 
5 CLEfiR 
7 SRUE "G§!" 

60 GOTO 7000 

98 REM POSE DES PIONS 

99 REM - 

100 PRINT RT B.aii üfd) 

110 PRINT RT 2,21; "@03211" 

120 INPUT L? 

130 IF L$>'S" OR OR LEN 

LÎOl THEN GOTO 120 
14-0 PRINT RT 2,21; "LIGNE =";L$ 
150 LET L=33*(CODE (L$3 -3 83 
160 PRINT RT 3,21; "Hnl§ 

170 INPUT C$ 

180 IF C$>"S" OR C$<"fi" OR LEN 
G$<>1 TMEN GOTO 170 
190 PRINT RT 3,21; "COLONNE = "; C@ 
200 LET P=B+L+CQDE C$-37 
210 IF ((PEEK P—23 OR PEEK P=52 
} RND 1031 OR (1=3 HND (PEEK P = 
C(U3 OR PEEK P =27 OR PEEK P=03 3 
THEN GOTO 110 

315 LET E=PEEK P _ 

220 PRINT RT 5 ■ PP : "IssaraasifaM"RT 
s,22; 2i,i4;D* 

225 POKE P,23 

230 IF INKEY*="" THEN GOTO 230 
24-0 IF INKEY$="E" THEM GOTO 4-00 
250 IF INKEYS="P" THEN GOTO 500 
260 IF INKEY*="F” THEN GOTO 950 

© 

300 POKE P,C(I3 

310 PRINT RT 2,29;" " ; RT 3,29;" 

32© PRINT RT S,22;"ERREUR ";RT 
3,22;"PRISE " 

330 PRINT RT 21,0;" 


34-0 IF 1=3 THEN RETURN 
350 LET I=RBS (1-33 
360 GOTO 100 
390 RETURN 

398 REM LES ERREURS 

399 REM - 

4-00 POKE P, E 

4-10 PRINT RT S,22; "ERREUR " ; RT 
8,22; "PRISE "; RT 21,0;" 


4-20 GOTO 110 

498 REM LES PRISES 

499 REM - 

50© POKE P,C(13 

510 PRINT RT 14,21;P$Cl TO 103; 
RT 15,21; PS(12 TO 223 
520 PRINT RT 2,29;" "; RT 3,29;" 

"; RT 5,22; "ERREUR "; RT 8,22; "PR 
I5E " 

530 PRINT RT 21,0," 


540 INPUT R$ 

550 PRINT RT 21,0;RS;" PIONS PR 
I57FRRPPER S POUR OUI" 

555 IF INKEY$="" THEN GOTO 555 
560 IF INKEY* O" S" THEN GOTO 53 

0 

565 LET R=URL R$ 

570 PRINT RT 14,21;" 

"; RT 15,21;" ";fiT 21,0 


580 LET R(I3=R(I3+R 

59© PRINT RT 0,27;"PREND" 

600 LET U=I 
610 LET 1=3 
620 FOR Z = 1 TO R 
530 GOSUB 110 
635 LET O (13 =P 
640 NEXT Z 

650 PRINT RT 18,30; INT (R (13 710- 
3 R (13 -10*INT (R (13 7103 ; RT 19,30 
; INT (R(23 7103 ; R (23 -10STNT (R (2 3 
7103 


660 PRINT RT 21,1;"ERREUR="”E"" 
SINON FRAPPER TOUCHE" 

670 IF INKEY$="" THEN GOTO 670 
680 IF INKEY$="E" THEN GOTO 100 

0 

685 PRINT RT 21,1; 

69© IF F = 1 THEN RETURN 
70© LET I=ABS (U-33 
710 GOTO 100 

998 REM CORRECTION ERREUR PRISE 

999 REM - 

100© PRINT RT 21,0;"OUBLIE DES P 
RISONNIERS ? (O/MJ 

1010 IF INKEYS="“ THEN GOTO 1010 
102© IF INKEY $ = "N" THEN GOTO 107 
0 

1030 IF INKEYÎ ■! :> "O" THEN GOTO 10 
10 

1040 PRINT RT 21,»;" 


105© LET I=U 

1060 GOTO 510 

1070 FOR Z=1 TO R 

1080 LET G=RBS (U-33 

109© POKE (GJ(Z3 3,C(G3 

1100 NEXT Z 

1110 LET I=U 

1120 LET R(13=R(13-R 

1130 GOTO 510 

7000 PRINT RT 0,3; 


7010 PRINT TRB 
7020 PRINT " 

B8S3 SS*» 

7030 PRINT " 

I aB 8 B- 

7040 PRINT " 

B B B H W» 

7050 PRINT " t> 
7B6& PRINT " 


3 ; 


H.THB 27; 

s i- rt 


ip a i sir 


7070 PRINT "=> RPRES RUOIR ENTRE 
LE HRNDICAPUOUEZ L UN RPRES L R 
UTRE EN ENTRRNT LR LIGNE PUI 

S LR COLONNEOU MOUS DESIREZ POSE 
R UN PION" 

7080 PRINT RT 13,0;" -7UN RSTERIS 
QUE RPPRRRITRR RLORS" 

7090 PRINT RT 15,0;"=>EN CRS D E 
RREUR FRRPPEZ ""E. 

7100 PRINT "=>EN CRS DE PRISE FR 
fiPPEZ ""P. 

7110 PRINT ” = > RU DERNIER COUP FR 

APPEZ ""F. 

7120 PRINT 

7130 PRINT "SINON FRRPPEZ UNE RU 
TRE TOUCHE " 

7140 PRINT RT 21,11;"QUE LE HEIL 
LEUR GRGNE” 

7150 IF INKEY S = " " THEN GOTO 7150 

7998 REM LE UELI R DEUX 

7999 REM - 

8000 CLS 

8010 PRINT RT 1,0;"LE TRAIT COUT 
E 5 PTS 1X2";RT 8,3; "QUEL HRNDIC 
RP ? (0 R 93" 

8020 INPUT D 

8030 IF D <0 OR D >9 THEN GOTO 801 
0 

8040 GOSUB 9000 

8050 IF D <2 THEN GOTO 8200 

8070 LET H$=^DOiRPPDBPDUf!pUJÏHllP" 
3080 IF B=5 OR D =7 OR D=9 THEN G 
OSUB 314ÊF 

8090 FOR 1 = 1 TO (D*23 STEP 2 

610© LET P=B+33*(CODE H*( 13 -387 + 

CODE H*(1+13-37 

811© POKE P,28 

8120 NEXT I 

8130 GOTO 8300 
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8140 POKE (B+307) ,28 
8150 LET D =D — 1 
8160 RETUHN 
8200 LETT 1 = 1 

sa 10 GOTO 100 
3300 LET I=£ 

3310 GOTO 100 

3997 STOP 

3998 REM DESSIN DU GO —BON 

3999 REH-- 

9000 CLS 

9010 RRND USR 16516 
9020 GOTO 93 00 
9030 PRINT 

jjBn 

904-0 LET C=B 

9050 FOR r=0 TO 18 STEP 2 
9060 POKE C,(166+1) 

9070 POKE (C+20),(166+1) 

9080 LET C=C+33 
9090 POKE C,(167+1) 

9100 IF 1=18 THEN GOTO 9180 
9110 FOR J = 1 TO 19 STEP 2 
9120 POKE (C-+U) j 0 
9130 POKE CC+U+1),27 
914-0 NEXT U 

9150 POKE (C+20),C167+J) 

9160 LET C=C+33 
9170 NEXT I 
9180 PR1NT RT 20,0/"] 

aaæB MM - 

9200 REM INITIRLISflTIOM 
9205 DIM O C50) 

9210 DIM C(3) 

9220 DIM J$(2,li) 

9230 LET C(l)=28 
924-0 LET C(P)=52 
9250 LET C(3)=0 

9260 LET üî(l)="NOIR JOUE " 

9270 LET JS(2)="BLRNC JOUE " 

9280 LET U=1 

9290- LET p$= ‘‘Ba g^B fflHaBsjæBBBggB 


9300 LET D®=-|ï 

9310 DIM R(2) 

9320 LET R(1)=0 

9330 LET R(2)=0 

934-0 LET Y$="****=S*****" 

9350 FOR 1=1 TO 16 STEP 3 

93S0 PRINT RT I,21;Y$ 

9370 NEXT I 

9380 PRINT RT 2,21;"LIGNE =";RT 
3,21; "COLONNE=“; RT 5,22; "ERREUR 
";RT 6,21; "FRRPPEZ""E" 

9390 PRINT RT 8,22; "PRISE"; RT 9, 

ai; "FRRPRE2T""P.; RT 11,ai; "FIN 

DE JEU?";AT 12,21;"FRRPPEZ""F.. 

94-00 PRINT RT 17,21; "PRISONNIERS 
"; ht 18,ai; -de noir =00"; (rr i9,a 
1 ;-de blrnc= 00 ";rt 20 , 21 ;"**■**** 
* $*" 

94-10 LET F =0 

94.20 LET B=(PEEK 1639&+2S6*PEEK 
16397) +34- 
94-97 RETURN 

94-98 “REM FIN DE PARTIE 

94-99 REM = = == = = = = = = = = = 

9500 POKE P,C(I) 

9510 PRINT RT 11.21: 

" RT 12, 21 ; " Il 
9520 PRINT RT 5,22; "ERREUR "; RT 
3,22; "PRISE " 

9538 LET F=1 
954-0 LET I = :L 

9550 PRINT RT 0,21; U BK PREND" 
9560 GOSUB 510 

9570 LET 1=2 _ 

9580 PRINT RT 0,21; “ CTSBIB " 

9590 GOSUB 510 
9595 PRINT RT 0,21;" 

9600 LET fl$=". 

. . . ... . - UN POINT D” " INTERROG 

RT ION (?) Ufi RRPRRRITRE" SUR LE G 

O-BRN. ET SE DEPLACER D“"IN 

TERSEGTION- LIBRE EN INTERSECTION 

LIBRE.POUR CHACUNE D" "EL 

LE, INDIQUEZ S""IL S""RGIT . ...D 
""UN POINT NEUTRE (""P"") ..... .D 
""UNE INTERSECTION NOIRE("“N"")O 
U BLRNCHE ( •• •■ b " " ) " 

9610 LET fl*=R*+"............... . 

..NEUTRE=P.NO I 

R=N.BLRNC=B" 

9620 FOR 1=1 TO 311 

9630 PRINT RT 21,0;R*tl TO 1+31) 

964-0 NEXT I 

9650 LET R(l)=-R(2) 

9655 LET R(2)=-R(l) 

966© LET B=(PEEK 16396+25&ÏPEEK 
16397) +34- 

9670 FOR 1=0 TO 18 
9680 FOR J=1 TO 19 
9690 LET P=B+33*I+J 

9700 IF PEEK P=28' OR PEEK P=52 T 
HEN GOTO 9770 
3710 POKE P,15 

9720 IF INKEY$="" THEN GOTO 9720 
9730 IF INKEY$="N" THEN GOTO 980 
0 


974-0 IF INKEY*="P" THEN GOTO 990 

9750 IF INKEY$="B" THEN GOTO 985 

0 

3760 GOTO 9720 
3770 NEXT U 
3780 NEXT I 
3730 GOTO 994-0 

9799 REM POINT NOIR 

9800 LET R(1)=R(1)+1 
9820 POKE P,51 

9830 GOTO 9770 
984-9 REM POINT 3LSNC- 
3850 LET R(2)=R(2)+1 
9870 POKE P,39 
9880 GOTO 9770 

9899 REM POINT NEUTRE 

9900 POKE P,23 
9910 GOTO 9770 

9940 PRINT RT 18,21;" 

»* ; J^g 21 • " ■* 

3950 PRINT'HT 17,21;” RESULTATS 
”RT 18,21; "NOIRS =" ; (R ( 1) - (4-. 5 
* (D=0) ) ) ; RT 19,21;"BLANCS =";R(2 

9955 IF INKEY$=“" THEN GOTO 995S 
9960 CLS 

9965 PRINT RT 3,0;"POUR REJOUER 
FR£)PPE2T ""R**"** 

3370 PRINT RT 6,0;"POUR SRUUEGRR 
DER CE PROGRAMME METTEZ VOTRE 
MAGNETOPHONE EN MARCHE ET FRR 
PPEZ ""S""" 

BT 3.1,0; "POUR ARRETER 

IF“lNKEY*="" THEN GOTO 9980 
3985 IF INKEYt="R" THEN RUN 
3990 IF INKEY*="S" THEN GOTO 5 
ÎE INKEYS-'R" THEN STOP 
9999 GOTO 9980 


■■ i a 30 ■■ 135 -*s-ia 

* 64 J 35 > 62,166,22,128 
■iS52t>, 114,6,20,22,166,35 
16532,114,20,16,251,22,128 
16538,114,187,202,199,64,1 
1S544,13,0,9,119,1,20 
16550,0,9,119,1,13,0 
16556,9,60,187,202,140,64 
1S562,119,22,0,14,27,6 
16568,9,35,114,35,113,16 

16574.250.35.114.35.119.60 

16580.195.159.64.201.195.60 


LD E,B9 
LD HL,(400C) 
INC HL 
LD fi,RS 

LD D,S0 
LD(HL),D 
LD B,14 
LD D,fi6 
INC HL 
LD (HL),D 
INC D 
DÜNZ FB 
LD D,S0 
LD (HL),D 
CP E 

JP Z FIN 

LD BC,0D 
RDD HL,BC 
LD (HL),R 
LD BC,14 
RDD HL,BC 
LD (HL),fi 
LD BC,0D 
RDD HL,BC 
INC R 
CP E 

JP Z LIGN1 

LD (HL),R 
LD D , 0 
LD C,IB 
LD B, 9 
INC HL 
LD (HL),D 
INC HL 
LD (HL),C 
DJNZ FR 
INC HL 
LD (HL) ,D 
INC HL 
LD(HL),fi 
INC R 
JP LIGN2 

RET 


LIGN1 


LIGN2 


LIGN3 


FIN 
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Nouvelle version de ce jeu bien connu, 
avec un plateau de 76 pions : essayez, 
comme l'ordinateur, de ne laisser qu'un 
seul pion sur le plateau. (J. Tallone) 



X GOSUB 700 
a eus 

s pR int ht 3-,aa;”S 
•15 PR INT RT 0,2.: 


20 DIM P(10,10) 
ai FOR K=1 TO 10 
25 FOR N=1 TO 10 
30 UET P (K,N) =-l 
35 NEXT N 
4-0 NEXT K 
45 LET PO=l 

55 LET H=75 

56 FOR K=1 TO 1© 

57 FOR N = (5-K) * (K <4) +• (K>3 HND 
K<8)4 CK>7)*(K-6) TO (K+6) * CK<4) + 
C K > 3 HND K<8) *10+CK>7) *(17-K) 

56 LET P(K,N)=1 

59 PRINT HT K*2,0;CHR$ CK+165) 

HT 2 *K., 2*N; "fl" 

60 NEXT N 

61 NEXT K 

69 PRINT HT 6,22;"COUP JOUET" 

70 PRINT HT S,23; "DEP ; 

71 SLQU 

72 IF O THEN GOTO 65 
60 INPUT D$ 

81 IF LEN D$ < >-2 THEN GOTO 80 

82 IF CODE D$C1)<38 OR CODE D* 
(1)>47 OR CODE D$C2) <28 OR CODE 
D$(2)>37 THEN GOTO 80 

84 GOTO 90 

85 LET D$="H5" 

90 PRINT DS 

98 LET P(CODE Dtii)—37,CODE DS 
( g )“ 27)=0 

100 PRINT HT (CODE DS<l)-37)*2, 
(CODE D$(2)-27)*2;"." 

105 FOR Z=1 TO 15 

106 NEXT Z 

110 LET M=M—1 

111 IF M=1 THEN GOTO 500 

112 PRINT HT 8,28;" 

113 PRINT HT 10,23;" 

115 PRINT HT 8,28; 

116 IF NOT O THEN GOTO 121 
118 GOSUB 8000 

120 GOTO ISO 

121 INPUT DS 

122 IF Di="FIM“ THEN GOTO 500 

123 IF LEN OS02 THEN GOTO 120 
125 IF CODE DS Cl) <38 OR CODE DS 

(1)>47 OR CODE DS(2)<28 OR CODE 
DS(2)>37 THEN GOTO 12© 

130 IF P(CODE DS(1)-37,CODE DSC 
2)-27) <>i THEN GOTO 120 
18© PRINT DS 

190 PRINT HT 10,23;"RRR: "J 

191 IF C THEN GOTO 270 

199 INPUT XS 

200 IF XS=D$ THEN GOTO 112 

201 IF LEN X $ < >H THEN GOTO 199 

202 IF CODE X$(D <38 OR CODE X$ 
(1)>47 OR CODE XS(2)<28 OR CODE 
XS(2) >37 THEN GOTO 112 

203 IF DS(1)<>X$(1> HHD DS(2><> 
X$(2) THEN GOTO 112 

210 IF P(CODE XS(1)-37,CODE XS( 
2)-27) THEN GOTO 112 
220 IF CODE X$(l) OCÛDE DS(l)+2 


HND CODE XSCDOCODE DS Cl) -P HH 
D CODE XS C 2) < >CODE D$(2 )f2 HND C 
ODE XSC2) OCODE DS (2) -2 THEN GOT 
O 112 

270 PRINT XS 

280 IF D $(2) = X S(3) THEN GOTO 34 

0 290 LET Y=(CODE DSi2)-27+ CODE X 
S (2) -27) /2 

300 LET X=CODE DSCi)-37 
330 GO 1 O 380 

340 LET X=(CODE DS Cl) —37+CQDE X 
SCI) -37) ,'2 

350 LET Y=CODE D$C2)-27 
360 IF P IX,Y) < >1 THEN GOTO 111 
330 PRINT HT (CODE D$(l)-37)*2, 
(CODE DS C2) -27) *21 “.” 

385 LET P(CODE DSCD -37,CODE DS 
(2)-27)=0 

400 PRINT HT (CODE X$il)-37)ïa, 
(CODE XS (2) -27) *2; "®" 

405 LET P(CODE X$(1)-37,CODE XS 
(2)-27)=1 

4S6 PRINT HT 2*X, 2*V; " „ “ 

407 LET P!X,Y)=0 

411 FOR Z=i TO 15 

412 NEXT Z 
420 GOTO 11© 

50© FOR 1=1 TO 15 
501 NEXT I 

ifs PRINT RT 2,s; 

520 PRINT HT 4,0;“RESTE; ";M;” 
SUR 76 PIONS” 

525 IF O THEN GOTO 600 

530 IF M=1 THEN PRINT HT 6,3;"E 


XCELLENT" 

531 IF M=i THEN GOTO 600 

535 IF H=2 THEN PRINT HT 6,3;"B 
RRUO" 

536 IF M=2 THEN GOTO 600 

540 IF M=3 THEN PRINT RT 6,3;"P 
RS MRL" 

541 IF h=3 THEN GOTO 600 

545 IF M<10 THEN PRINT RT 6,3;" 
HONNORRBLE" 

546 IF H<10 THEN GOTO 600 

550 IF M>9 THEN PRINT HT 6,0;"I 
L FAUT VOUS ENTRAINER..." 

600 PRINT HT 9,3; "UNE HUTRE PRR 
TIE 

610 IF INKEY S = "“ THEN GOTO 610 

620 PRINT INKEYS 

625 IF INKEY S — "O" THEN GOTO 1 

650 GOTO 9999 

70© REM REGLES 

71© PRINT HT 0,7; “REGLES DU JEU 

720 PRINT HT 2,1; "LE JEU CONSI5 
TE H ELIMINER","PROGRESSIVEMENT 
TOUS LES PION5”,"SBUF UN. ON COM 
MENCE PRR EN ELIMINER UN,CE 

OUI FRIT UN VIDE.";"UN PION UOIS 
IN POURRA DONC" , "SAUTER PHP. DESS 
US UN HUTRE ET","COMBLER CE VIDE 
. LE PION SRUTE EST ELIMINE, C-E 
OUI FRIT UN VIDE" ETC ... " 

725 PRINT 

726 PRINT "ENTREZ”"FIN""POUR TE 
RMINER LE JEU" 

727 PRINT HT 14,0;" PRESSEZ ""S 


ORDI-5 n° 10 Décembre 1984-29 






























REFLEXION 


UR , 


POUR FRIRE JOUER 


L.ORE-INRTE 


728 PRINT HT 17,8;"E M C RS O.INC 
I DENT.NE F RITES PRS""SBffl" "MAIS " 


GOTO. -9000 


730 PRINT RT 20,5;"PRESSEZ UNE 
TOUCHE" 

735 PRINT RT 20,5;" 

74-0 IF INKEY $ = " " THEN GOTO 730 
74-5 IF INK£Y$="5" THEN LET 0 = 1 
746 IF INKEY$ < > "S" THEN LET 0=0 
750 RETURN 
S000 REM 


8020 LET Z$ = "H4H&<J5B5Ü3U5Ü&Ü4U4H 
4.121417 ISG2I2G7 I7E2G2E7G7F0F2F9F 
7D0F0DSF9G0E0G9E9E0E2E9E7F2H2F7H 
7I2G2I7G7C1E1C8ESH1F1H3F8C3C1C5C 
3R4C4C4C2Cie3R6R4fi3R5R5C5B2B4B7B 
5F4F2F5F7F1F3F8F6D2F2D7F7F2F4F7F 
SE4E2E5E7E1E3E8E6G4E4E4C4E4D4C6C 
4G5E5E5C5B5D5E6C6C7C5C5E5C4E4E4E 
6G2G4I5ISI3G3D3F3G3E3H6F6ESG6H5H 
3G7GaG5G3H3r5F3D3C3E3" 

8025 LET U$=Z$(PO TO PO+33 
8030 LET D*=U$( TQ 2) 

804© LET X$ =U$(3 TO 3 


805© LET PO=PO+4 
S0S0 RETURN 
9000 FRST 
9010 PRINT RT 3,22; "I 
9020 PR INT RT 0,2;' 


9030 FOR I=-l TO 10 

9035 PRINT RT 2*1,0;CHR$ {1+1653 
904© FOR J=1 TO 10 

9050 IF P(I,.J3 =1 THEN PRINT RT 2 

^ J ^ j • ii 11 

3860'IF P(I,U3=-1 THEN PRINT RT 

g j * ** ** 

9070 If'P 11,33=0 THEN PRINT RT 2 
*1 ,2*J;“." 

9080 NEXT U 
9090 N EXT I 

9095 PRINT RT 6,22;“COUP JOUE?" 

9096 PRINT RT 8,23; "£>EP: "; 

9097 5LOU 

9098 IF NOT O THEN GOTO 3100 

9099 LET M=M-1 

9100 GOTO 116 

9600 SHUE "SOL ITRIRlU” 

9610 RUN 
9999 STOP 


Bridge 

à 4 ou 5 joueurs 

Organisez une partie de bridge pour 
4 ou 5 joueurs ; l'ordinateur tient le rôle 
de l'arbitre et tient la feuille de marque. 

Le mode de tournoi utilisé est le 
« Chicago », dans lequel chaque joueur 
est tour à tour associé à chacun 
des autres joueurs. 

A 4 joueurs on joue 3 tours de 4 donnes suivant le tableau bien connu : 

— 1 et 2 contre 3 et 4 

— 1 et 3 contre 2 et 4 

— 1 et 4 contre 2 et 3 

(Il est possible de jouer 6 tours en recommençant) 

A 5 on utilise le tableau : 

— 1 et 2 contre 3 et 4 

— 1 et 5 contre 2 et 3 

— 1 et 4 contre 2 et 5 

— 1 et 3 contre 4 et 5 

— 2 et 4 contre 3 et 5 

et on joue alors 5 tours de 4 donnes. 

A chaque donne, le programme demande le contrat et son résultat. 

Le format d'entrée à utiliser est. le suivant : 

— T = Trèfle K = Carreau C = Cœur 

— Les contrats réussis se notent « = » P = Pique SA = Sans Atout 
— Les chutes avec «—» et les levées de mieux avec « + » 

— Les « contre » se notent d'une «*», les « surcontre » avec «#*» (symbole des 
puissances sur ZX81, mais pas 2 étoiles) 

Le programme admet le contrat « PASSE » quand tout le monde a passé. 

Il suffit de taper la touche « N /Line » seule comme réponse à la question 
CONTRAT ? 

A la question JOLIE PAR ? Il faut répondre « 1 » ou « 2 » suivant l'équipe 
qui a joué le contrat (voir écran). 

Le programme calcule les points en tenant compte de la vulnérabilité suivant 
la formule « PENT » (personne, eux, nous, tous). La marque utilisée est celle des 
tournois par paire. 
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A la fin de chaque tour de 4 donnes les résultats cumulés sont affichés et 
il est possible de relire les résultats des tours précédents. 

Lorsque l'on demande la suite, le programme édite la nouvelle feuille 
de marque avec la nouvelle composition des équipes. 

Il est possible de s'arrêter à la fin de chaque tour de 4 donnes. (P. Weinachter) 


1 REM Y-NOT NOT NOT NQT NOT N 

OT MOT NOT MOT NOT NQT NOT NOT N 

OT NOT NOT NOT NOT NOT NOT NOT H 

OT NOT NOT NOT NOT NOT NOT NOT N 

OT TON 11 

a DIM HS(6,4,8) 

3 DIM L(63 
4- DIM G$IG..S) 

5 DIM Jt(6,8) 

6 DIM Eta.6.6) 

7 DIM P(6) 

10 DIM 016) 

11 Cl_S 

la LET MS = “" 

13 PRINT RT 1,0; “BONSOIR."; RT 
3.0;"HEUREUX D""ORGRNISER VOTRE" 
14. PRINT RT 7,7: ' ' 

15 PRINT RT 13,0;"ETES VOUS 4- 
OU 5 JOUEURS 7" 

16 INPUT R 

IV IF fi<>5 RND R < >4- THEN GOTO 
600 

18 IF R=5 THEN GOTO 1000 
13 CLS 

30 PRINT RT 3., 0.; "FRITES LE TIR 
RGE RU SORT ET” 

31 PRINT RT 5,3;"TRPER LE PREN 

OM DES JOUEURS,UN ",/’PRR UN 

aa PRINT RT 10,0.; "JOUEUR 1 . . . " 

30 INPUT J$(l) 

4-0 PRINT üîtl) 

70 PRINT RT 13,0; "JOUEUR a..." 

S0 INPUT JS(2> 

90 PRINT J$(3J; 

130 PRINT RT 14-, 0; "JOUEUR 3..." 

130 INPUT J$(3) 

14.0 PRINT JS (3); 

150 PRINT RT 16,0;"JOUEUR 4...“ 

152 INPUT JS (4-1 

153 PRINT JS(4) 

165 GOSUB 168 

166 GOTO 195 

168 PRINT RT 18,0;"SI ERREUR TR 
PER E SINON B" 

169 IF INKEY $ = "" THEN GOTO IBS 
171 IF INKEY S = “E" THEN RUN 

173 PRINT RT 18,0," 

173 PRINT RT 30,0.: "POUR COMMENC¬ 
ER TAPER C" 

175 FOR U=1 TO 1 

176 NEXT U 
ISO PRINT RT 20,0; “g 

a aBBBB E BBB" 

190 IF INKEY S < > C THEN GOTO 17 

0 

193 RETURN 

195 FOR T=1 TO R-S (R = 5) +3-SR* (fl=4 

1 

30© CLS 

as© Gosua saa® 

335. FC-R D = 1 TC 4 

34-0 PRIOT RT 31.0; "CONTRRT ET R 
ESULTRT ?" 

350 INPUT CS 

351 PRINT RT 13,0;7 

353 IF LEM CS<8 THEN LET C*=CÎ+ 

353 LET CS=CSt TO 33 

254 IF C$=" " THEN LET C 

® ® ^ * 

355 PRINT RT 3*D+4.4;CS 

356 IF C$="PASSE " THEN LET J 
= 1 

357 IF CS—"PASSE " THEN GOTO 
374 

360 PRINT RT 31,0;"JOUE PAR 1 C 
U a.? 

270 INPUT J 

272 IF vJOl RND J<>3 THEN GOTO 
260 

373 PRINT RT 3*D+4,9*J+7; "*" 

274. PRINT RT 21,0; "CONFIRMEZ UO 
US TtO/NJ" 

375 INPUT RS 

377 PRINT RT 3*0+4,16," ";RT 3* 

D+4,35;" " 

378 IF RS="N“ THEN GOTO 340 
380 PRINT RT 31,0;“ 

383 LET HS(T,01=CS 

385 GOSUB 9500 

386 IF ER=1 THEN GOTO 340 

387 LET L1=LEN- STRS Etl,T,D) 

388 LET L3=LEN STRS E(3,T,D) 

393 PRINT RT 3*D+4,19-L1; E tl,T, 

DJ;RT a*D+4,38-L3; E(3,T,D) 


399 NEXT D 

300 FOR 1=1 TO 3 

310 FOR D=1 TO 4 

330 LET ECI,T/S)=EtI,T,5)+ECI,T 
.. DJ 

330 NEXT D 
340 NEXT I 

343 LET L1=LEN STRS Eli,T,S! 

343 LET L3=LEN STRS EC3,T,5J 
350 PRINT RT 14,19-L1; E(1 ,T ,5J ; 
RT 14.38-L3;E(3,T,5) 

360 LET DIF=E(1,T,5J-Et3,T,5J 
363 IF DIF=0 THEN GOTO 393 
365 IF DIF <0 THEN LET DIF = -DIF 
370 LET DIF=INT (DIF/100+.5) 

375 IF E(1,T,5)>E(2,T,5) THEN L 
ET E tl,T,6J =DIF 

380 IF E(1,T,5)>E(3,T,5> THEN L 
ET E(3,T,6)=-DIF 
385 IF Etl,T,5J<=Eta,T,5J THEN 
LET E(1,T,6)=—DIF 
390 IF Etl,T,5)<=Eta,T,5J THEN 
LET Eta,T,6J=DIF 

393 LET L1=19-LEN STRS Etl,T,6) 

394 LET L3=38-LEN STRS E(3,T,6) 
401 PRINT RT 16,Ll;Eti,T,6>; RT 

16, La; E O,T, 6 J 
403 IF fl=5 THEN GOTO 1300 

403 LET P (1) =P (13 +E <1,T,63 

404 LET P(33=P(3J+E(1,T,6)*((T= 
1) OR (T=4))+E(3,T,6)*((T=3> OR 
T=3 OR T=S OR T =6J 

405 LET P(33=P(33+E(i,T,63*(T=3 
OR T=5J +E(3,T,63 *(T=l OR T=4 OR 
T=3 OR T =6 J 

406 LET P<4J=P(43+E(1,T,6J*(T=3 
OR T = 63 +E O,T,6) * (T = 1 OR T=3 OR 
T =4 OR T =53 

430 PRINT RT 30,0;“POUR LE CLRS 
SFMFNT TAPER C v * 

I sa PRINT RT 3 0,0.; "HSKi 


440 IF INKEY®< >"C" THEN GOTO 43 

0 

450 GOSUB 7000 
460 NEXT T 

470 PRINT 

471 PRINT "VOULEZ VOUS REVOIR L 
ES DONNES ?" 

473 INPUT RS 

473 IF R$="N" THEN GOTO 475 

474 GOTO 3000 

475 CLS 

476 PRINT RT 10.0;"g 


OMME HUIT 


477 PRINT 
430 PAUSE 4E4 
500 RUN 

600 PRINT RT 18,0;"NE COMMENCEZ 
PRS R TRICHER " 

700 GOTO 16 

1005 CLS 

1006 PRINT RT 3,0; "FRITES LE TIR 
RGE RU SORT ET " 

1010 PRINT RT 5,0;"TRPER LE PREN 
OM DE CHAQUE JOÙEÜR" 

103© PRINT RT 7,0;"JOUEUR 1..."; 
1030 INPUT JS(1> 

1040 PRINT JStl) 

1050 PRINT RT 9,0; "JOUEUR a..."; 
1060 INPUT JS(21 

1070 PRINT JS(2);RT 11,0;"JOUEUR 
3 ..."; 

1080 INPUT JS(33 

1090 PRINT J$(3J,AT 13,0;"JOUEUR 
1100‘INPUT JS(4) 

1110 PRINT JS(4);RT 15,0;"JOUEUR 

5 ..."; 

1130 INPUT JStSJ 
1130 PRINT JS(53 
1140 GOSUB 168 
1145 GOTO 195 

1150 IF T = 1 OR T=3 OR T=3 OR T=4 
THEN LET G=1 
1160 IF T=5 THEN LET G=3 
1170 IF T=1 THEN LET 63=3 
1180 IF T=3 THEN LET G3=5 
1190 IF T=3 THEN LET G3=4 
1200 IF T=4 THEN LET G3=3 
1310 IF T=5 THEN LET G3=4 

1330 IF T =1 OR T =5 THEN LET H =3 
1330 IF T=3 OR T =3 THEN LET H =3 
1340 IF T=4 THEN LET H=4 
1350 IF T=i THEN LET H3=4 
1360 IF T=3 THEN LET H3=3 
1370 IF T =3 OR T =4 OR T=5 THEN L 
ET H3=5 
1380 RETURN 

1300 LET P<1! =P(1Î +E(l,T,ôî •* (T = l 
OR T=3 OR T=3 OR T=43 
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1310 LET P 12) =P ( 2Ï +E (i»T ,6> # (T =1 
OR T=5)+E(2,T,6)*{T=2 OR T =3) 
1320 LET Pf3)=P(3) +E (i 6) ï (T=4 
) +Et2,T, SJ * (T = l OR T=2 OR T =5) 
1330 LET P (4) =P (4 J +E (1>T, 6J * £T =3 
OR T=5> +Ef2'..T J &> * fT-1 OR T=4) 
134-0 LET P ( 5 ) =P (SJ +E (ljT , 63 *■ tT =2 
! +E(2 / T,6!*IT=3 OR T =4 OR T=5) 
1350 GOTO 4-20 
2000 CLS 

2002 LET AR=T _ 

2010 PRINT RT 10,0;“QUEL TOUR ? 

(JUSQU fl ", t;" . 

2020 INPUT TT 

2030 IF TT < 1 OR TT >T THEN GOTO 2 
010 

2031 CLS 

2032 PRINT AT 10,0;"ATTENDEZ UN 
PEU" 

2033 LET T =TT 

2034- LET L5 = 19-LEN STR$ Ell,T,5'i 

2035 LET L6=2S-LEN STR* Ei2,T,5ï 

2036 LET L3=±9-LEN STR$ E ( 1..T ,6i 

2037 LET L4 —20-LEN STR* E(2,T,6J 

2038 CLS 

2040 GOSUB 5000 
2050 FOR D=1 TO 4 

2060 LET L1=19-LEN STR* E(1,T,D! 
2070 LET L2=28-LEN STR* Et2,T,D! 
2080 LET DD=2*D+4 

2090 PRINT AT DD,4;H$ (T,DJ ; RT DD 
,.L1; E (1,T ,D) ; RT DD,L2;E(2,T,D) 
2100 NEXT D 

2150 PRINT AT 14 , L5; E ( 1.. T . 53 ; AT 
14,L6;E(2,T,S) 

2160 PRINT AT 16,L3lE(1,T.6) ; AT 
16 j L4;E(a,T,61 

2165 LET T=AA 

2166 IF T=5*(R=5) OR T=S*(fl=4) T 
HEN GOTO 2200 

2170 GOTO 7270 

2200 PRINT AT 19,B;"REUOIR AUTRE 
PARTIE ==> R" 

2210 LET R*=INKEY* 

2215 IF R* = "" THEN GOTO 2210 

2216 IF R*="R" THEN GOTO 2000 
2230 GOTO 7266 

3000 PRINT "1. 

B L (IJ -9; 0 (1) 

3005 PRINT 
3010 PRINT "2. 

B L (21 -9; O (2) 

3015 PRINT 
3020 PRINT "3. 

B L (31 -9; O (31 
3025 PRINT 
3030 PRINT "4. 

8 L (41 -9; 0 (41 
3035 PRINT 
3040 PRINT "5. 

B L (51 -9; 0 (51 
3045 PRINT 

3055 PRINT 

3056 PRINT 
3060 GOTO 7260 

21 0-111 -aSH^SEB"; ch 
R* (CODE (STR* (T)i+126) 

5001 PRINT 

5002 PRINT AT 1, 16.; " 1" ; AT 1.25;" 
2 " ... 
5005 LET L=2 

5010 GOSUB 8000 
5020 LET L =3 
5030 GOSUB 9000 

5032 IF fl=5 THEN GOSUB 1150 

5033 IF A=5 THEN GOTO 5050 

5035 LET G=1 

5036 LET G2= (T + li * (T<=3) + (T-21 * ( 
T >=41 

5037 IF T=1 OR T=4 THEN LET H=3 

5038 IF T=2 OR T=3 OR T=5 OR T=6 
THEN LET H=2 

5039 IF T = 1 OR T=2 OR T=4 OR T=5 
THEN LET H2=4 

5040 IF T=3 OR T=6 THEN LET H2=3 
5050 PRINT AT 3,1; "HED"; AT 3,4; "C 
QNT7RES";AT 3,13;U*(G1 ; AT 3,22;U 
« (H) 

5060 LET L=4 
5070 GOSUB 9000 

5060 PRINT AT 4,13;U*(G21; AT 4,2 
a;Jî(Hai 

5090 LET L=5 
5100 GOSUB 6000 
5110 LET L=6 
5120 GOSUB 9000 
5130 PRINT AT 6,1;"P" 

5140 LET L=7 
5150 GOSUB 600B 
5160 LET L=8 
5170 GOSUB 9000 
5160 PRINT AT 8,1;"1“ 

5190 LET L=9 

5200 GOSUB B00S 

5210 LET L = 10 

5220 GOSUB 9000 

5230 PRINT AT 10,1;"2" 

5240 LET L=ll 

5250 GOSUB 8000 

5260 LET L=12 

5270 GOSUB 9000 

5260 PRINT AT 12,1;"TS" 

5290 LET L=13 
5300 GOSUB 8000 
5310 LET L=14 


; G*(1);" : 

" ; ta 

; G* (2) ; “ ; 

"; TA 

; G*(3);“ : 

"; TA 

; G* (4);" : 

" ; ta 

;G$(5);" : 

" ; TR 


5320 GOSUB 9000 

5330 PRINT RT 14,4;"TOTAUX=>" 

5340 LET L=15 

5350 GOSUB 8000 

5360 LET' L =16 

5370 GOSUB 9000 

5380 PRINT AT 16,4;“POINTS=>" 

5390 LET L = 17 

5400 GOSUB 8000 

5410 RETURN 

7001 LET L* = "" 

7005 CLS 

7006 PRINT AT 10,0;"ATTENDEZ UN 
PEU" 

7011 IF DIF=0 THEN GOTO 7120 

7012 LET Z=4*tfl = 4)+5*(A=5) 

7013 FOR F=1 TO Z 

7014 LET Q(F)=P(F) 

7017 LET G*(F)=J*(F) 

7018 NEXT F 

7020 FOR B=Z-1 TO 1 STEP -1 
7030 FOR C=1 TO B 

7040 IF O (CJ > =G> (C + l) THEN GOTO 7 
100 

7080 LET X=Q(C) 

7085 LET 0(0=0 (C + l) 

7090 LET Q (C+l)=X 
7092 LET R*=G$(C) 

7094 LET G* (C) =G* (C + l) 

7096 LET G*(C+l)=fl* 

7100 NEXT C 
7110 NEXT B 
7115 FOR U = 1 TO Z 

7117 nIxT L U W3=2S_LEN STR * OCUÎ 
7120 CLS 

?170 o PRINT "CLASSEMENT APRES ";T 

7190 THEN PRINT ■“ S • , 

7200 PRINT 

05 IF fl=5 THEN GOTO 3000 


; G* ( 1) ; T AB L ( 1 


; G*(2) ;TRB L(2 


";G*(3);TRB L(3 
“;G* (4);TRB L(4 


7210 PRINT 
) - 10 ; O ( 1 ) 

7215 PRINT 
7220 PRINT "2 
) -10; G (2) 

7225 PRINT 
7230 PRINT "3 
) -10; O (3) 

7232 PRINT 

7233 PRINT "4 
> -10; Q(4) 

7235 PRINT 
7240 PRINT 
7250 PRINT 

7260 IF T=A*(A=5) OR T=6*(R=4) T 
HEN GOTO 7290#(A=4)+7500+(fl=5) 

5" THEN GOTO 7290*(fl 
=4)+7500*(A=S) 

7a ZS„E£ INT nT 19,0 ;"suite ==> s 

ARRET ==> A ",,"REUQIR L 

ES RESULTATS ==> R" " 

7275 LET L*=INKEY* 

ÏE }-* = "" THEN GOTO 7275 
ÏE L$=“S" THEN RETURN 
ZSfâ ÏE L*=“R" THEN GOTO 2000 
T3S5 IF L$o"fl" THEN GOTO 7275 

7286 CLS 

7287 PRINT “CLASSEMENT FINAL" 

7288 GOTO 7190 

Zfg? IF fl =5 then; GOTO 7500 
g a 91_ .PRINT AT 10, 0;; "FELICITATION 
H j b$ tl) 

7300 IF* O (2) =Q £1) THEN PRINT , , " 
SANS OUBLIER ";G*C2) 

7305 IF O(3)=G(1) THEN PRINT 
NI NON PLUS ";G*(3) 

7310 GOTO 470 

7503 PRINT AT 14,0;"FELICITATION 
S A "; G* Cl) t TO 8) 

7505 PRINT* 

7507 IF 0 (1) 00(2) THEN PRINT " 

7510 IF O(2)=0(1) THEN PRINT "SR 
NS OUBLIER G* (2); " 

7515 PRINT 

7517 IF GM3J < >-G-î2> THEN PRINT " 

7520 IF 0(3)=ûil) THEN PRINT "NI 
NON PLUS ";G*(3) 

7530 GOTO 470 
3000 PRINT AT L-1,0 
3010 RAND USR 16514 

9010 PRINT AT L,0;":";flT L,3;":" 
;AT L, 12 ; AT L , 21; " ; " ; RT L , 30 

9020 RETURN 

9500 LET ER=0 

9501 LET PTS=0 

9502 LET CO=0 

9503 LET U=0 

9504 LET U=U+(D=2 AND J=l)+(D=3 
AND U=2)+(D=4) 

9505 IF C*="PASSE " THEN GOTO 

9840 

9510 LET C=CODE C*(l>-28 

9520 IF C<1 OR 07 THEN GOTO 980 

0 

9530 LET K*=C$(2) 

9540 IF K*="S" THEN LET K*=C*(2 
TO 3) 

9550 IF K$0“P" AND K*<>"C“ AND 
K*<>"K" AND K*<>“T" AND K*C>"5R" 
THEN GOTO 9800 
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9560 UET S$=C$C3) 

9565 IF K$=“5R“ THEN LET S$i=C$C4 

9571 IF S$="=" THEN LET R=0 

9572 IF SS="=" THEW GOTO 9660 
9575 IE SS =”**' THEN LET CO = l^ 


THEN GOTO 9S00 
9590 LET R4=C$(3 TO ) ^ . 

3591 IF K$="5fl" THEN LET R$=C$C4 
TO ) , 

9595 IF R$C1)="+" OR R$C1)="-’’ T 
HEN LET M$=R$ll) 

9596 IF RS tl) =••+■■ OR R$C1)="~" T 
HEN LET R$=R$C2 TO ) 

9597 IF M$=“+“ OR THEN GO 

TO 9610 

9596 IF RS (1) = " *" OR RJ(l)="*t" 
THEN IF R$(2)="=" THEN LET R=0 

9599 IF R$C1)="*“ OR RS(l)="ïï" 
THEN IF R$C2)="=" THEN GOTO 9660 

9600 IF R$ Cl! =" *•" OR R$(l)=")fï" 
THEN IF RSC2) <>"+■' RND R!£C2)<>"- 

" THEN GOTO 9800 

9601 IF RStl)="*" OR R$Cl)=“**" 

THEN IF RS C2) THEN LET &S=" - 

3603 IF R$(i) =''i" OR R$(i)="**" 
THEN LET RS=R$(3 TO ) 

9610 LET MS="" 

9611 FOR F=1 TO LEN RS 

9616 IF CODE RSCF)=0 THEN GOTO 9 
640 

9620 IF CODE R$CF)<29 OR CODE RS 
CF)>37 THEN GOTO 9800 
9630 NEXT F 

9640 LET R S =RSCI TO F-l) 

9645 IF THEN LET RS=SS+RS 

9648 IF RS=“" THEN GOTO 9800 

9649 IF CODE RS Cl) <22 OR CODE R$ 
Cl)>37 THEN GOTO 9800 

SS5S LET R=URL R* 

9660 REM ÛK==>CRLCUL _ 

9661 IF C+R<-6 OR C+R>7 THEN GOT 
O 9800 

9670 IF R<0 THEN GOTO 9810 
9680 LET PTS=CC*20>*ÇK$="T" OR K 
S = ”K" ) + CC*30) * CK* = “P OR K,S= C J 
+ C40 + CC-1) *30) * CKS="SR ) 

9690 LET PTS=PTS+PTSïCCO=l) 

9700 LET PTS=PTS+PTS*3*CCO=2) 
9710 LET PTS=PTS+5B*CCC<5 RND CK 
S="T” OR K$="K“!)+ CC<4 RND <K$=" 
P" OR K$="C") ) + CC <3 RND K$="SA") 


)*CCO=0) 

9715 LET PTS=PTS+50ït CC*2 <5 RND 
CK$="T" OR K$=' I 11 K* I J ) + CC*-2 <4 RND C 
K$="P" OR KS="C“))+(C*2<3 RND K$ 
= "SR") ) * CCO = l) 

9716 LET PTS=PTS+50iCCC*4<5 RND 
CK$=”T" OR K$="K"))+CC*4<4 RND C 
K $ = " P " OR K$="C") ) +CC*4<3 RND KS 
= "SR") ) * CCO=2) 

9717 LET C1= C C C > =5 RND CKS = "T" O 
R KS="K"))+CC>=4 RND CK9> = "P” OR 
K$ = ”C") ) + (0=3 RND K$="SR"))*CCO 
= 0 ) 

9718 LET C2=CCC*2>=5 RND CKS="T" 
OR K$=”K"))+CC#2>=4 RND CK$="P“ 
OR KS="C”))+CC*2>=3 RND K$="SR" 

) ) * CCO = l) 

9719 LET C3=CCC*4>=5 RND CK$="T" 
OR K$="K">)+CC*4>=4 RND CK@="P" 
OR KS="C"))+CC*4>=3 RND K$="5R" 

) ) * C 00=2! 

9720 LET PTS=PTS+300*CCC1=1)+CC2 
= 1) + CC3=1) ) 

9724 LET PTS=PTS+200ïCU = 1)*CCC1 = 

1) + (C2 = l) + CC3 = 1) ) 

9730 LET PT5=PTS+500*CC=6 RND U = 
0)+750*(C=6 RND U=l)+1000*IC=? R 
ND U=0)+1500*CC=7 RND U=l) 

9740 LET PTS=PT5+50*CCO=l OR CO = 

2) * CR>=0) 

9750 IF R=0 THEN GOTO 9770 
9760 LET PTS=PT5+ C20*R* CK£="T" O 
R K$="K")+30*R*CK$="P" OR K$="C" 
OR K$="SR") ) * CCO=0) + ClSOxR* CU=0 
) +200*R* CU = 1) ) *(CO = lJ + CH00*R* CU = 
0) +400*R* CU = 1) ) * CCO =2) 

9770 LET E(1,TjD! =PT5 * C O = 1) 

9780 LET E C2,TjD) =PT S * C «J =2 ) 

9790 GOTO 9802 

980© PRINT RT 19.0; "H353BÎBB!" 

9801 LET ER=1 

9802 RETURN 
9815 LFT D-DRC O 

9820 IF CO<>0 THEN GOTO 9900 
9830 LET PTS=50*R*CU=0>+100*R*CU 
= 1 ) 

9S40 LET E(2 J T..D!=PT5ï(d = l! 

9850 LET E(IjTjD) =PT S * C «J =2 ) 

9860 RETURN 

9910 LET PTS=C100+CR-1)*900)*(U= 
0) + C200+ CR —1) *3©0) * CU = 1) 

3920 LET PTS=PTS+PTS*CCO=2) 

9930 GOTO 9840 

9990 CLERR 

9391 SRUE "BRXDGS" 

9995 RUN 




Une très belle version tout BASIC de « Pac-Man » pour ceux qui se méfient 
encore de l'assembleur : ce jeu très coloré est encore assez rapide 
pour vous donner des sueurs froides. (J.C. Jacquet) 


1 REM 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM 

7 REM 
S REM 
9 REM 

10 REM 

11 REM 

12 REM 

13 REM 

14 REM 

15 CLS : PRPER 0: BORDER 0: IN 
K 4 

80 LET !Ï1S=0: LET B t =1000 
SI REM 

90 CLS : LET R=0: PRINT RT 2,8 
;"PRCTIME—MRNIE";RT 6,0;"UOUS ET 
ES DRNS UN LABYRINTHE RUX PAROIS 


MINEES ET DEUX FRNTOMMES ESSRYEN 
T DE VOUS MPNGER VOUS RUEZ TROIS 
GLOUTONS.LE BUT DU JEUX ET D OU¬ 
RLER LE PLUS POSSIBLE DE PRSTILL 
ES EN UN MINIMUM DE TEMPS.LORSQU 
E UOUS RUEZ MANGEZ TOUTES LES PR 
STILLEDU LRBYRINTHE RLORS UOUS P 
ASSEZ R UN RUTRE STRGE. "; RT 18,6 
; " . . .BONNE CHANCE ..." 

91 FOR 1=1 TO 1000: BEEP .1,10 
: LET R=R+1: IF R=99 THEN GO TO 
97 

92 IF 1=18 THEN LET 1=©: PRINT 
RT 21,18;" 

93 INK INT CRND*8)+1: PRINT RT 
21,1;" © U-C JACQUET" 

94 NEXT I 

98 REM 

97 REM 

98 LET S=0: LET at =0 : LET Stag 
S =1: LET bonus =0 
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REFLEXES 


99 LET ZX=© 

100 LET V —19 : LET h=16 

110 LET a =0 

111 FOR X=0 TO 200 

112 REflD z j x .. g , m 

113 XF I» = 100© THEN GO TO 115 
114. NEXT X 

115 GO SUS 5300 

116 RESTORE 

117 REM 
113 REM 

120 DATA 15,20 ,15,13,16,20 ,16, X 

3.17.20.17.13.17.19.18.13.17.18. 
19,13,17,17,19,12,17,16,19,11,17 
, 15,19,10,17,14-,19,9,17,13,1S,9, 
13,13,17,9,19,13,16,9,19,15,16,6 
, 19,16,16,7,19,17,16,6,19,16,16, 
5,19,20,16,4-, 19,21,16,3,19,22,16 
,2,19,23,16,1,16,23,15,1,17,22,1 
4., 1,16,22,13, 1 

123 DATA 15,22,12,1,14-, 22,12,2 . 
14- , 23,12,3,14-, 24- , 12,4- , 14- , 25,12,5 
, 14-, 26,12,6,14- , 26,12,7,16,26,12 , 
3,16.25,11,6,16,24,10,S,16,23,1© 
,7,16,22,10,6,17,22,10,5,18,23,1 
0,4,19,23,10,3,19,24,9.3,19,25,6 
,3,19,26,7,3,19,27,7,4,19,26,7,5 
,16,26,7,6,17,28,7,7,16,28,7,8,1 

5.23.3.3.14.28.9.8.13.28.9.7.12, 

28.9.6.12.29.9.5.12.30.10.5.11.3 
0,10,4,10,30,10,3,9,30,9,3,8,30, 
8,3,7,30,7,3,6,30,7,4,5,30,7,5 

125 DfiTfl 5,30,7,5,5,29,7,6,5,26 
,7,7,6,23,7,8,7,28,7,9,8,28,7,1© 
,9,23,7,11,10,28,7,12,10,27,7,13 
,10,26,7,14,9,26,8,14,8,26,9,14, 

7.26.10.4.7.25.10.13.7.24.10.12, 
7,23,10,11,7,22,10,10,7,21,9,10, 

9.21.8.10.10.21.7.10.10.20.7.9.1 

1.19.7.8.11.18.6.8.11.7.5.8.11.1 
6,5,7,10,16,5,6,9,16,5,5,8,16,5, 

4.8.17.5.3.8.18.5.2.8.19.5.1.7.1 

9.5.1.6.19.5.1.5.19.5.2.5.18.5.3 
,5,17,5,4,5,lS,5,5,5,15,5,6,6,16 
,5,7,6,16,5,8,6,17,5.9,6,18,5,10 
,6,19,5,11,7,19,5,12,8,19,5,13,9 
,19,5,14,11,19,5,15,12,19,5.16,1 

2.20.5.17.13.20.5.18.14.20.6.18, 
1?4 20 À 7 jlS,I5,a0,8,18,5,20,10,18 
i 20 ' 11 ' 18 -• 15 ' 20 ' 12 * 18 ; 3-5 , S0,1 

13,1000 
131 REM 
3.32 REH 

140 BORDER 0: PAPER 0: CLS 
141: LET Vie =3 
151 LET t=0 

199 PRPER 0: BORDER 0 

200 CLS : INK 6: PLOT 25,120: D 
RRU 48,0,-2: PLOT 73,119: DRRU 0 
,-66: PLOT 24,120: DRRU 0,-66: F 
OR f=l TO 3: DRRU 7,0,4: DRRU 7, 
0,-4: NEXT f: DRRU 7,0,4 

210 PRINT ; FLASH 1; RT 8,4;"*"; 
RT s,7; "O"; RT 10,5; FLASH 0; INK 

6;RT 11,4;“(_)" 

211 PLOT 110,0: DRRU 0,173 

212 FOR i= 1 TO 20: PRINT : X NK 

i; rt i ■ îs : ■' BmÊÊÊmmtsÈBàammmmp -- : n 

EXT i 

213: INK 6: PRINT ; FLASH 1,'AT 
19,1;"PRCTIME-MRNI" 

214 PRINT ; FLASH 1; RT 1,1; "PAC 
TIME—MRNI" 

215 INK 7: PRINT ; FLASH 1;RT 2 
,18;"DIRECTIONS” 

216 PRINT RT 6,17;"5 GRUCHE 

217 PRINT RT 8,17;“8 DROITE 

218 PRINT RT 18,17; "6-> EN BR 

S" 

219 PRINT RT 12,17;"7 --> EN HR 

UT" 

220 PRINT RT 16,19; "APPUYER”; RT 
17,18;"SUR SPSCE" 

221 FOR 6=1 TO 4080 

222 IF INKEY $ = " " THEN GO TO 23 

0 

223 FOR X=1 TO 3: BEER .3,7: BE 
EP .15,4: BEEP .15,4: BEEP .3,7: 

NEXT X: BEEP .6,0: 

224 NEXT e 

225 REM 

226 REM 

999 GO SUE 4000 

1000 FOR n=l TO 9e9 

1001 LET t =t +1: 

1002 IF S=3130 THEN GO TO 8000 

1300 REflD Z,X,g,m _ _ 

1400 IF IB =1000 THEN RESTORE : RE 

140Ï'lF 9 RTTR CZ,X)=6 THEN GO TO 
3000 

1482 PRINT RT Z,X; INK 7; OUER 1 
; "®": PRINT ; FLASH 1; INK 7; RT 
2,26; S: PRINT RT Z,X," INK 1; OUE 
R 1 ‘ 

1403 IF RTTR (g,m)=6 THEN GO TO 
3000 

1404 PRINT RT g,m; INK 7; OUER 1 
;"®": BEEP .001,50: PRINT RT g , ffi 
; INK l; OUER 1;"ffi" 

1405 IF INKEYS="5" THEN LET a=l: 
LET h =h —1: LET zx=5 


1406 IF INKEY$ = "8" THEN LET a=2 : 
LET h =h +1: LET ZX=5 

1407 IF INKEYSi = "6" THEN LET a =3 : 
LET V =V +1: LET ZX=5 

1403 IF INKEY$ = "7“ THEN LET a =4 : 

LET V =V —1: LET ZX=5 
1409 IF ZX=5 RND SCREEN* CV,h)= 
O" THEN LET S=S+18 

1420 IF RTTR tV,h)=4 OR RTTR (V, 
h)=5 THEN GO TO 3000 
1500 IF a =1 THEN PRINT RT v,h+l; 
PRPER 0; INK 0;" " ; RT v,h; INK 

lIlO^IF a=2 THEN PRINT RT V,h-X; 

PRPER 0; INK 0," "; RT V,h; INK 

6; "C" 

1520 IF a=3 THEN PRINT RT V-l,h; 
PRPER 0; INK 0;" "; RT V,h ; INK 

1530 IF a=4 THEN PRINT RT V+l,h; 

PRPER 0; INK 0;" ";RT v,h; INK 

S; "3" 

1560 NEXT n 

1561 REM 

1562 REM 

1563 REM 

1564 REM 

3000 IF RTTR tZ,X)=6 OR RTTR (g, 

m)=6 THEN PRINT RT v,h; INK 0; P 
RPER 0;" ": LET at=l: GO TO 3811 

3001 IF a =1 THEN PRINT RT V,h+1; 

PRPER 0; INK 0; " ** 

3002 IF a=2 THEN PRINT RT V,h-1; 

PRPER 0; INK 0;" . 

3003 IF a=3 THEN PRINT RT v-l,h; 
PRPER 0; INK 0;" “ 

3004 IF a =4 THEN PRINT RT V+l,h; 

PAPER 0; INK 0;" " 

3011 LET Vie =Vie-1: PRINT ; INK 
4; RT 21,19-vie;"ffi" 

• 6 : BEEP BEEP g* 

2x3,0: BEEP 9/3,0: BEEP g,0: BEE 
5 I* a £2i 3: BEEP 9X3,2: BEEP g*2x 

pp| : r,?| EP ^ 9 ''ièlÀ BEEP 9 #2X3,0; B 
3- ' BEEP g , 0 

3013 IF Vie =0 THEN GO TO 6000 
O 0 3020 F 3t=1 THEN L-ET at=0: GO T 

® 0 tk!k X £.§Ï T E? J Y ï. THEN PRINT 

RT IJ* 

30 à 7 5 T I5 t Z , X > =6 THEN PRINT 
; PRPER 8;RT V,h," " 

30 Ig„IP RTTR (g,W)=6 THEN PRINT 
; PRPER 0;RT v,h;“ " 

3019 IF RTTR (w,h)=4 THEN PRINT 
; INK 4;RT V,h ; ”0" 

3020 LET V =20 : LET h=16 

3021 PRINT ; INK 6;RT v,h ; "C" 

3022 GO TO 1000 

3023 REM 

3024 REM 

3025 REM 

4000: CLS : BORDER 0: PRPER 0 

4001 FOR i=5 TO 20 

4002 INK 1: PRINT RT i,2;"oooooo 
OOOOOOOOOOOOOOQOOOOOOOOOOO" 

4003 NEXT i _ 

W10INK4PMNTBT0j0i" 

4020~ÎNK 47"PRÏNT~RT~STiT^ 


4030 : 


IF Vie =3 THEN PRINT ; INK 

~ uiE :«€@ 


=2 THEN 


4j|T2L|; 

4.03 ï: "IF 
4: RT 


4032: IF Vie =1 THEN PRIN T ; 

4 ; rt 2i,0; " sre c ccŒŒea uie : 


PRINT ; INK 

eea uie:®@® 


INK 


lés 


INK 2; FLASH 1; RT 
INK 2; FLASH 1;RT 1 


4033: PRINT , 

14,15; "«■<&❖&“ 

4034 PRINT ; 
s, 15; "❖©•-->>" 

4040 FOR i=0 TO 21 

4041 INK 4: PRINT RT i,0;"@";RT 
i ,31j "S" 

4043 INK 5: PRINT RT 2,20; FLRSH 
1; "SCORE: "; s; RT 2,3; "BONUS: " ; bo 
nus 

4050 NEXT i 

4061 INK 5: PRINT RT 6,2; "10II1SBI " ; 
RT 7,2; "H " ; RT 8,2; "H"; RT 8,4; "HfS 

M ::â « - fi » v ija„a t » - ; «t ± 0 .a 


11,2; ____ 

RT 13,2; 


■ ; R x 


est 

14,2 


. v , JlUfiltlHf ,... 

i. " ; «J.. 1^4.7 i "H " ; RT 15,2; "18 " ; RT 
"U ; RT.,15,4; "1888 “; rt 17,2; "Si 



S T ,i 3 AÀ.9T"HII"7RT' 14, 11; "II"; RT 1 
5, 10; "HH"; HT 16,11;"||||"; 
f. 2 3 i âf f.üM»yU»4«' RJ 14,14; "H " ; R 
I . ÎA A f f 4 y g- * RJ 15. il 14;"ll " ; RT 15,1 
f “Illlll " ? T 16 ' 14 ; HmIHIIHI ; RT 18,10 
f 363 PP .ÏNT RT 18, 14; "II1I8IOII8I " ; RT 

19,14, H , RT 19,19;"H"; 

4087 . PRINT RT .9,18; " "; RT 10,19; 

IlIiSS RT 7.,20.; ” 


j* t rnj.iN i mi y . io : fl 

*;RT 6,20; vJI3I?5ISEl/5llS 
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SI”; RT 7,27; "II"; RT 7,29; "II”; RT S A 
20; "SS " ; RT 8,22; "lllllisi"; RT s,27; "Is 
" ; RT 8,29; "II"; RT 9,20; "SS " ; RT 9,2 
7; -Il ■■ ; RT 10,23; "HH *■ ; RT 9,29; "Il " ; 
RT 10,29: "U RT 13., 20;,“111111" ; RT 1 
1,25; "IIISII"; RT 11,29; "II": 

4070 PRINT RT 13,21; HlIlBIlHHIl i HT 
14-, 21; "11"; RT 14,27; "SS"; OT 14,29 
: "Il " ; RT 15,21; "II"; RT 15,27; "II"; R 
T 15,29; "H"; RT 15,23; "IISISI"; RT 16 
,21; "H”; RT 16,27; "li"; RT 16,29; "fl 
" ; RT 17,21; "II"; RT 17,27; “II"; RT 1 
7,29;"U";RT 17,24;"ü";RT 18,21;" 
1311"; RT 18,28; "1111"; RT 18,29;"H" 

4088 PRINT SI; FLASH 1;" MSCORE: 

";ms; FLRSH S;" "; FLASH 

1; "MTEMPS: ";m t 

4089 PRINT ; INK 1; RT 5,1;"O" 

4090 PRINT ; INK 6; RT V,h ; ©* 

4092 RETURN 

4093 REM 

4094 REM 

4095 REM 

4096 REM Dn |. P 

5020 FOR JC =0 TO 7: RERD rn : POKE 
USR "d"+x,rn: NEXT X 

5021 DATA 60,255,129,255,255,129 
* 255 S© 

5025'FOR X=0 TO 7: RERD rn: POKE 
usr "c"+x,rn: next x 

5026 DATA 62,102,255,240,240,255 
,126,62 

5030 FOR X =0 TO 7: RERD rn: POKE 
USR " b" +x , r n : NEXT X 

5031 DATA 204,204,204,204,204,20 
4,204,204 

5035 FOR X=0 TO 7: RERD rn: POKE 
usr "p " +x , rn •. next x 
?S2 to „£ 1 ? Tn 124-, 1®2,255,15,15,255 , 
126 j> 3.24- 

5040 FOR X=0 TO 7: RERD rn: POKE 
USR "q." +x , r n : NEXT X 

5041 DRTR 80,126,219,219,255,255 
jgg 153 

5045/FOR X=0 TO 7: RERD rn: POKE 
USR "S"+X,rn: NEXT .X 

5046 DRTR 24,60,126,231,231,126, 

60,24 

5047 RETURN 

5048 REM 

5049 REM 

5050 REM 

5051 REM 

6000 LET S=bonuS+S: CES INK S- 
PEOT 25,120: DRAU 48,0,-2: PLOT 
73,119: DRAU 0,-66: PLOT 24,120 
: DRRU 0,-66: FOR f=l TO 3: DRRU 
7 ,® , 4- : DRRU 7,0 , -4 : NEXT f: DRR 
U 7,0,4 
6002 LET UR=0 

6010 PRINT ; FLRSH 1; RT 8,4; ; 

R I g' 7 ;«T 10,5; FLRSH 0; INK 

6; RT 11 , 4 ;"c ) 

6011 PLOT 110,0: DRRU 0,173 
6014 FOR^i 

1015 1 PRINT ; INK 7; FLRSH 1;RT 2 


,18;"@ RESULTAT ©"; 
6016: INK 6: PRINT 
19, l; "PRCTIME-MRNI" 
6017: INK 6: PRINT 
1,1;"PRCTIME—MANI 


FLRSH 1;RT 
FLRSH 1;RT 


6018 IF ms >S THEN GO TO 6050 


6019 

IF ms 

<S ' 

6020 

IF ms 

= S ■ 

6051 

UEZ" 

PRINT 

RT 

6052 

PRINT 

RT 

6053 

PRINT 

RT 

6057 

PRINT 

RT 

6058 

PRINT 

RT 

6059 

PRINT 

RT 

6060 

PRINT 

RT 

6061 

PRINT 

RT 

6062 

PRINT 

RT 

6063 

ES" 

PRINT 

RT 

6064 

PRINT 

RT 

PTS' 

1 


6065 

PRINT 

RT 

6086 

PRINT 

RT 


PTS EN ” 
DSECONDES 


EN 


•; ms; " 


•rejouer (ox 


n) IF UA°S THÊN 

6067 FOR y=1 TO Se9 

6068 IF INKEYm="n" THEN STOP 

6069 IF XNKEYgm"0" THEN GO TO 90 

6070 LET 9«.6: BEEP 9,0: BEEP a# 
3/3,0: BEEP 0X3,0: BËÉP 0,0: BEE 
P 0*2x3,3: BEEP 9X3,2: BËÉP a»S/ 
3,2: BEEP g/3,0: BEEP g«2/3,0: B 
EEP g/3,-1: BEEP g,0 

608® NEXT y 

6100 INPUT "UOTRE NOM?”; R® 


6101 LET «sms: LET mt = t 

6110 PRINT RT 4,16;"BRRUOIUOUS R 

uez" 

6111 PRINT RT 5,16;"GRONE.UOTRE 
: PRINT RT 6,16; "SCORE EST DE: 

6112 PRINT RT 7,16;s;" PTS EN " 

6113 LET UR=2: GO SUB 6057 
5114 FOR R=1 TO 10000 

6115 IF INKEYt="o" THEN GO TO 90 

6116 IF INKEYt="n" THEN STOP 

6117 FOR X=1 TO 3: BEEP .3,7: BE 
EP .15,4: BEEP .15,4: BEEP .3,7: 

NEXT X: BEEP .6,0: 

6118 IF INKEY£=“n" THEN STOP 

6119 NEXT r 

6150 IF tttct THEN GO TO 6100 

6155 IF m t > t THEN GO TO 6050 

6156 REM 

6157 REM 

6158 REM 

6159 REM 

8000 CLS : BORDER 6: PRPER 1: LE 
T V=19: LET h=16 

8001 LET stage=stage+l: LET bonu 
S=bonuS+S: LET S =0 

8002 PRINT RT 10,12; INK 6; FLRS 
H l;stage;" STRGES" 

8003 FOR X=1 TO 3: BEEP .3,7: BE 
EP .15,4: BEEP .15,4: BEEP .3,7: 

NEXT X: BEEP .6,0: 

8004 CLS : BORDER 0: PAPER 0 

8005 GO SUB 4000 

3006: PRINT RT V ,h ; INK 6;”©" 
8007 GO TO 10©0 
S010 REM 

8012 REM 

8013 REM 

8014 REM Q® FIN 


B 0 NU 5 : 0 


SCORE 




pO 00000000 Q QÜÜQOOOOC 


iiiiiioocimiiiiim 

ooqqooQoooüo 

flfiffsssllfifififlfi 


00 


ilsAfiSHSSAl 

iooüoooqoool.... 

pll1lll1l°llloSiîlu1c 

ioooooooooooot.._ . 

190000000000 000|€g 


m 

ooqc 

oollc 


0001 

000c 


llllllllllilll 

SfiflAAS 

oooqoo 


sflfiflsm 


Q000Ë 
0 Q ûfc 


0 csiiîiiuHi 0 ii 

mi 

0 0 Q 0 0 

», 

loooooooooool 
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REFLEXES 


Atomes 


Découvrez, d'après les déviations subies par un rayon-sonde, la position des 
atomes cachés par le ZX8 1 : attention, ce jeu difficile fait appel à une bonne 
mémoire visuelle. 

Pour ceux qui trouveraient ce programme trop facile (!!!) il est possible de 
le compiler avec le compilateur de PSS, le MCII pour obtenir une accélération 
impressionnante en faisant attention aux SLOW, FAST et REM à supprimer et 
aux DIM à convertir en variables alphanumériques simples. (M. Chanaud) 



10 REM 


100 GOSUB 7000 
110 CLS 

14-0 GOSUB 9500 

160 GOSUB S000 

200 REM 

205 SLOU 

210 IF N=10 THEN GOTO 9100 
220 LET Z$ = " LIGNE D"" ENTREE 
7 DE 0 R 9" 

230 GOSUB 3200 

24-0 GOSUB 3300 

255 IF RS="C" TMEN GOTO 9200 
260 IF CODE BS <28 THEN GOTO 24-0 

265 IF CODE AS >37 THEN GOTO 24-0 

270 LET LE=CODE R*-28 
275 LET Z $ = "COLONNE" 

280 GOSUB 8200 

285 GOSUB 8300 

290 IF CODE R*<28 THEN GOTO 285 

295 IF CODE R*>37 THEN GOTO 285 

300 LET CE =CQDE HS-28 
305 IF CE < > 0 RND CE<>9 RND LEO 
0 AND LE< >9 THEN GOTO 9300 
310 LET SU=0 

313 IF LE=0 THEN LET SU=1 
316 IF LE=9 THEN LET SU=-1 
320 LET SH =0 

322 IF CE=9 THEN LET SH = -1 

323 IF CE=0 THEN LET SH=1 
330 LET N=N+1 

34-0 GOSUB 84.00 
350 LET Z$=U$ 

360 GOSUB 8200 

420 PRINT RT N*2-2,23;CHRS (N + l 
56 ) ; TRB 25; LE; CE;" — >••; 

425 LET RET =0 

430 GOSUB 8500 

432 IF RET = 1 THEN GOTO 20© 

445 GOSUB 8400 

450 PRINT RT N*2—2,30; LE; CE 
460 GOTO 200 
7000 REM 

7015 FOR 1=1 TO 4 
7020 PRINT RT 5,0;" 



7095 NEXT J 

7100 NEXT I 

7110 FOR 1=1 TO S0 

7120 NEXT I 

7200 CLS 

7210 PRINT "LE ZX-81 DISPOSE RLE 


RTOIREMENT" 

7220. „PRINT "4 “ "ATOMES " " 

E GRILLE 8X8»" 

7230 PRINT ,,"LE BUT DU UEU EST 
DE DEDUIRE LR" 

7240 PRINT "POSITION DE CES AT0M 
ES D"" APRES" 

7250 PRINT "LES DEVIATIONS SUBIE 
S PAR DES” 

7260 PRINT 
YEZ DEPUIS' 

727© PRINT “LES COTES DE LR GRIL 
LE,” 

7280 PRINT ,,"POUR AVOIR UNE UIS 
UALISRTION" 

7290 PRINT 
L_E5 fiTOMES 
7300 PR INT '"SUPPRIMEZ LES INSTRU 
CT IONS istasi " 

731 0 PRINT "DES LIGNES 


DANS UN 


■RAYONS QUE UOUS ENUO 


■DES EFFETS QU' 


ONT 


ET m 

7320 PRINT ET N"” OUBLIEZ 

PRS DE LES " 

7330 PRINT "RETABLIR BURNT DE JO 


UER.„•. 
7340 PRINT 
10 ESSRIS. 
? 350 PRINT 


•UOUS RUEZ DROIT R 


. _ R TOUT MOMENT LR TOU 

CHE B PERMET" 

73S0 PRINT "DE CONFIRMER UO& DED 
UCTION5»" 

7400 RRND SIN PI 

7405 PRINT RT 21,29; "EH" 

7410 IF INKEYS < >"" THEN RETURN 

7415 RRND SIN PI 

7420 PRINT RT 21.29: "HH" 

7430 GOTO 74 00 
8000 REM 


TRACE. DE LP. G'R. IL LE 


CLS 

PRINT O* 

PRINT "0";TRB 20; 
FOR 1=1 TO 8 
PRINT T* 

PRINT l;s$;l 
NEXT I 
PRINT TS 

PRINT I;TRB 20; I 

PRINT OS 

REM 


FOR 1=1 TO 4 
LET L(IJ =INT 
LET C (I) =INT 


■ 0 " 




(RND *-8) +1 
(RND*8J +1 
REM PRINT RT L ( I) *-2 + 1, C ( I) * 

NEXT I 
LET N=0 
RETURN 

REM B»aM^»awaS4M8lldBIMSWII 


8005 
SOI© 

8015 
8020 
8030 
8050 
S0S0 
3065 
8068 
3070 
3100 

8105 
8110 
8120 
8130 
2 + 1 ; • 

8140 
3150 
3160 
8200 

8205 LET R=76©+PEEK 16396+256*PE 
EK 16397 

8210 LET A2 = INT (R.-'256) 

3220 LET fll=R-256*R2 
8230 PRINT RT 0,0; 

8240 POKE 16398,RI 
8250 POKE 16399,R2 
8260 PRINT ZS 
8270 RETURN 

83O0 rem 

3310 REM 7 

8320 IF INKEYSO"" THEN GOTO 832 
0 

8330 IF INKEY$="" THEN GOTO 8330 
8340 LET fi$=INKEY$ 

3350 RETURN 

8400 rem . 

8410 PRINT AT L8ïÊÏtîCëlia+ï;.caRt 
(N+1S6) 

3420 RETURN 
3500 REM 
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3505 FR5T 
3508 REM ? 

8510 IF SUO0 THEN GOTO 3700 
3520 XF SHO0 TMEN GOTO 8600 
8530 REM 


8540 LET CE =CE +SH 
3550 LET LE=LE+SU 
: : : 3560 REM PRINT RT LE*2 + 1, CE *2 + 1 ; 

X 3570 IF CE=0 THEN RETURN 
X 3571 IF CE=9 THEN RETURN 
3572 IF LE =0 THEN RETURN 
v S573 IF LE=9 THEN RETURN 
8580 GOTO 8500 

: : : 8600 REM ■BgfiaEBBBBBBaBa B 

v 3605 LET Cfl =CE + SH 
X 3610 FOR 1 = 1 TO 4 

8620 IF Cfi = CCI> AND LE=LCIJ THEN 
X GOTO 9000 
3530 NEXT I 
:¥ 8540 FOR 1 = 1 TO 4 

X 6650 IF ca=ctl) RND LE + l=L!I.i TH 
X SM GOTO 8850 

X- 3560 IF CflaCtl) RND LE-l=LfIJ TH 
X EN GOTO 3800 
X 3670 NEXT I 
3680 GOTO 8530 

X 3690 REM BWl gftM 

X 3700 LET Lfl=LEfSU 
X 3710 FOR 1=1 TO 4 

3720 IF LR=L l'Il RND CE=C(I) THEN 
GOTO 9000 
X 8730 NEXT I 
X 3740 FOR 1=1 TO 4 

3750 IF Lfi=L(I) RND CE + 1=CCI) TH 
EN GOTO 8950 

X 8760 IF LR=L<I) RND CE-l=CtI) TH 
EN GOTO 8900 
X 3770 NEXT I 
3780 GOTO 3530 

■X 3790 REM-SRS- 

S300 LET SU = 1 
■X 8810 LET SH =0 

X 8320 GOTO 8570 

3340 REM-HRUT- 

X 885© LET SU=-1 

•X 8S60 LET SH=0 

X; 3870 GOTO 8570 

3880 REM-DROITE- 

;X 3900 LET SU=0 

89-10 LET SH = 1 
X 3920 GOTO 8570 

X S940 REM-GAUCHE- 


8950 LET SU=0 
8960 LET SH=-1 
8970 GOTO 8570 
9000 REM 




9820 PRINT RT N*2-2,30;"AB" 

3030 LET RET = 1 
9048 RETURN 

9100 rem 

9110 LET ZS="POUR Lfl SOLUTION RP 
PUYER SUR H" 

912© GOSUB 3200 
9160 GOSUB 8300 

9170 IF RÎO"C” THEN G OTO 3160 
9200 REM 


.'OL.UTTCtNïj 


9210 LET Z$="POUR REJOUER,PRESSE 
Z UNE TOUCHE" 

9220 GOSUB 8200 _____ 

3230 PRINT RT 20 ■ 24 ; " EMtMMÆBH " 
9240 FOR 1=1 TO 4 

9250 PRINT RT L (X) *2 + 1 , C ( 13 #-2+1; 
” 83 " 

9260 NEXT I 
9270 GOSUB 8300 
9280 CLS 
9290 GOTO 150 
9300 REM 

9310 LET Z$=" IL V 
INTRODUCTION." 

9320 GOSUB 8200 
3330 FOR 1=1 TO 15 
9340 NEXT I 
9350 GOTO 200 
9500 REM 


r raaaBwia d- 


9510 RRND 
9530 CLS 
9580 DIM L(4) 
9590 DIM C(43 
3SQ0 LET Q$=”+0 
9 + " 

9610 LET S$=" I 

9620 LET T$=" 

9630 DIM U$f38) 
9840 RETURN 
9900 REM 


9905 CLERR „ 

9910 5RUE "ATOMES" 
9915 REM S61RTOMES 
9920 RUN 


12345678 
XXXII ’I XX 
+ - + - + “+- + - + -4 - 




Ênwaders 
(Spectrum 4M K) 


Sur la demande de nombreux lecteurs qui possèdent un assembleur pour le 
Spectrum voici un jeu d'Invaders saisissant dont l'introduction doit s'effectuer 
en suivant les instructions ci-dessous : 

— Ce programme peut fonctionner seul sans la partie BASIC. Celle-ci contient 
la présentation, le réglage des touches, vitesse... 

— Il doit être assemblé sur un Spectrum 48K à l'adresse impérative de 32000. 

— Les caractères doivent être définis normalement c'est-à-dire en BASIC, ou 
par l'intermédiaire d'un assembleur, à l'adresse 65368 (adresse d'origine). 

— Une fois ces deux opérations réalisées (assemblage + caractères) : 

— Taper la partie BASIC 

— Puis faire : 

(1) a) SAVE « INVADERS » LINE 1 

b) SAVE « CARACT » CODE 65368, 80 

c) SAVE « INVADERS » CODE 32000, 1800 
Votre programme est prêt. 

— Pour l'utiliser : Faire LOAD” pour ( 1 ) les deux autres sauvegardes 
se chargeront automatiquement. (B. Clergeot) 
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1 LORD "CRRflCT"CODE 65368 

2 LORD *' INURDfËRS” CODE 32080 

10 OUER O: BORDER 0: INK7: PR 
PER O: CLS j, 

11 INK 2: FOR N=0 TO 255 STEP 

10: PLOT N,0: DRAW 125-N,175: NE 
XT N , • 

12 INK 7: PR INT RT iS, 6; “CLERCS 
EOT B. PRESENTE" 

13 PRINT RT 20,SJ"INURDERS © 1 
984” 

14. INK 5 

15 PRINT RT 6,0;" 

E E E E 


EB E E E E 


20 PRINT RT 7,0;"EEE 
EE EEE EEE EEE - ÉE" 

22 PRINT RT 8,0;" E 
EEEE EEE** 

24. PRINT RT 9,0," E E 1E E E E 
EE E E EE EEE E" 

26 PRINT RT 10,0;" E E E E E 
E E E E E EE E" 

28 PRINT RT 11,0;"EEE E E E 
E E EEE EEE E E EE" 

30 PRINT RT 12,0," 

100 OUER 1 

110 FOR N =74- TO 124- STEP 2 
120 PLOT 0,N: DRAW 255,0 
122 IF INKEY®<>“" THEN GO TO 1© 
00 

130 NEXT N 

14-0 FOR N =75 TO 125 STEP 2: PLO 
T 0,N: DRRU 255,0: IF INKEY$<>"" 
THEN GO TO 1000 
145 NEXT N 
150 GO TO 110 
1000 GO SUB 3000 
1005 FOR N=0 TO 6 

1010 RERD M: POKE 30000+N,M: NEX 
T N 

1012 CLS : OUER 0: INK 7 

1028 PRINT RT 2,5;"CHOISISSEZ LE 

S TOUCHES _ 


1030 INK 4-: PRINT RT 10,0; "TIR 
a m a '* FLASH 1 • 

104.0 ' ÎF INKEY S = ""' THEN GO TO 104 

1050 POKE 32723,USR 30000 
1060 PRINT INKEY $ 

10S5 IF INKEY®<>"" THEN GO TO 10 

G? 5 

1078 PRINT RT 13,0;"DROITE ... 
" FLRSH 1 ' '*'>** - 

1072 IF INKEY$="" THEN GO TO 107 

a 

1080 POKE 32250,USR 30000 
1090 PRINT INKEY $ 

110® IF INKEY®<>"" THEN GO TO 11 
0® 

1110 PRINT RT 16,0; "GRUCHE . . 
", FLRSH 1 

1120 IF INKEY$="" THEN GO TO 112 

3 

1130 POKE 32245,USR 30000 
1148 PRINT INKEY® 

1150 FOR N=i TO 300: NEXT N 
1160 INK 7: CLS 

1170 PRINT RT 2,5;"UITESSE DES B 
OHBES ? _ 


LENT 


1178 INK 4 

1180 PRINT RT 10,0;"0 ... 

"; RT 13,0; "1 ... RRPIDE" 

1185 IF XNKEY®="" THEN GO TO 113 
5 

1190 IF INKEY®="1" THEN POKE 326 
66,255 

1192 IF INKEY $ = "0" THEN POKE 32S 
66,75 

1200 PRINT RT 18,10;“... OK ..." 
2000 FOR N=0 TO 300: NEXT N 
2810 RRNDOMIZE USR 3200G 
2020 FOR m =1 TO 10: FOR n =0 TO 7 
- PRINT INK n; PAPER 1;AT 10,11; 
"GAME OUER": PAUSE 3 
2030 NEXT n 
2040 NEXT B) 

2100 IF INKEY$="" THEN GO TO 210 

g 

2150 CLS 

2200 GO TO 1160 

3000 CLS : PRINT RT 0,6;"l»t>de d' 

emploi: __ 


3010 PRINT , , , , “ vous devez fair 
e face a une arroee d'invaders 

.ceux ci sont très belliqueux 

et vous lance des bombes !" 
3020 PRINT ,," Uotre laser vous 
protégé.Chaqueinvaders tue ( R 5 
vous donne 100 pts.La soucoup 
e vous donne 1000 pts.C HI î" 
3030 PRINT ,," R 9000 la vitesse 
double ainsi qu'aux autres tabl 
eaux.Uous avez 4 vies." 

3040 PRINT ,,,,"BONNE CHRNCE...T 
flPEZ UNE TOUCHE" 

3042 IF INKEY®<ï"" THEN GO TO 33 
42 

3045 IF INKEY®="" THEN GO TO 304 

5 

3050 RETURN 

5000 DATA 205,142,2,6,0,75,201 


1 ; L -SPRCE INURDERS- 3 

4 ; C __ 

6 ; CC) 1984 CLERGEOT 

7 ; DEFINITION CARACTERES 

8 ; S****.*************-*** 


9 


ORG 

65368 

10 


DEFB 

X00101000 

11 


DEFB 

X01000100 

12 


DEFB 

X00111000 

13 


DEFB 

3.11010110 

14 


DEFB 

3301111100 

15 


DEFB 

3310000010 

16 


DEFB 

3301000100 

17 


DEFB 

3300000000 

18 




19 


DEFB 

0 

20 


DEFB 

3311111111 

21 


DEFB 

3310000001 

22 


DEFB 

0,0,0,0,0 

23 




24 


DEFB 

0 

25 


DEFB 

3300011000 

26 


DEFB 

3300011000 

27 


DEFB 

3300011000 

28 


DEFB 

3300011000 

29 


DEFB 

3300011000 

30 


DEFB 

3300011000 

31 


DEFB 

0 

32 




33 


DEFB 

0 

34 


DEFB 

3300011000 

35 


DEFB 

3300011000 

36 


DEFB 

XI0011001 

37 


DEFB 

5310011001 

38 


DEFB 

5310011001 

39 


DEFB 

5511111111 

40 


DEFB 

.3311111111 

41 




42 


DEFB 

5301111110 

43 


DEFB 

255,255,255 

44 


DEFB 

255,255,255 

45 


DEFB 

.3301111110 

46 




47 


DEFB 

5510001001 

48 


DEFB 

XI1011001 

49 


DEFB 

3311011011 

50 


DEFB 

X11011011 

51 


DEFB 

5511111011 

52 


DEFB 

Xllllllll 

53 


DEFB 

255,255 

54 




55 


DEFB 

5310010001 

56 


DEFB 

X01001010 

57 


DEFB 

X00101100 

58 


DEFB 

5311111100 

59 


DEFB 

5300111111 

60 


DEFB 

5300110100 

61 


DEFB 

X01010010 

62 


DEFB 

X10001001 

63 




64 


DEFB 

0 

65 


DEFB 

X00000001 

66 


DEFB 

X01111111 

67 


DEFB 

5311101101 

68 


DEFB 

X11101101 

69 


DEFB 

5301111111 

70 


DEFB 

X00000001 

71 


DEFB 

0 

72 




73 


DEFB 

0 

74 


DEFB 

XI000000® 

75 


DEFB 

5311111110 

76 


DEFB 

.1310110111 

77 


DEFB 

5310110111 

78 


DEFB 

X11111110 

79 


DEFB 

3310000000 

80 


DEFB 

0 

81 




82 


DEFB 

0,0,0,0,0,0 

83 


DEFB 

255,255 

87 

;PROG. 

PRINCIPAL 

88 


89 


CflLL 

C-L 5 

90 


CflLL 

INSCO 

91 


CRLL 

U TES 

92 

GENER 

CflLL 

IN IT 

93 


CRLL 

CABAN 

94 


CRLL 

DESS 

95 

DEBUT 

CRLL 

DEPL 

96 


CflLL 

TIR 

97 


CRLL 

TIME 

98 


CRLL 

SCROL 

99 


CRLL 

ENUBR 

1O0 


CRLL 

BEEP 

101. 


CRLL 

MT IR 

102 


CRLL 

BOMB 

103 


CflLL 

SOUC 

104 


CflLL 

SCORE 

185 


CRLL 

UITE 

106 


UP 

DEBUT 

107 




108 

; SOUS 

PROG . 

DU JEU 

109 

;£**************** 

110 




111 

PRINT 

LD 

D , 0 

112 


AND 

n 
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113 


LD 

R , H 

114- 


LD 

B , 5 

115 

L1 

RLfl 


116 


RL 

D 

117 


DJNZ 

L1 

118 


HDD 

fi ,L 

119 


LD 

E,R 

130 


PUSH 

DE 

121 


POP 

BC- 

122 


LD 

fl,B 

123 


RDD 

fi , 88 

124 


LD 

B,R 

125 


BIT 

0,D 

126 


JR 

Z,L2 

127 


LD 

R,D 

128 


RDD 

R,7 

129 


LD 

D,fl 

130 

L2 

BIT 

1,D 

131 


JR 

Z , L3 

132 


LD 

R / D 

133 


RDD 

R , 14 

134 


LD 

0,2 

135 

L3 

LD 

R , D 

136 


RDD 

R, 64 

137 


LD 

D,fl 

138 


RET 


139 

CflRRC 

BIT 

7 , fi 

14-0 


JR 

Z,L4 

14-1 


LD 

B,0 

14-2 


LD 

C,R 

14-3 


LD 

HL,6107 

144 


RDD 

HL,BC 

14-5 


JR 

L5 

14-6 

L4 

LD 

H,0 

14-7 


LD 

L , R 

14-8 

L5 

RDD 

HL, HL 

14-9 


RDD 

HL ,HL 

150 


RDD 

HL, HL 

151 


LD 

fl,H 

152 


RDD 

R, 60 

153 


LD 

H,R 

154- 


RET 


155 

RFFIC 

PUSH 

RF 

156 


CRLL 

PR INT 

157 


POP 

RF 

158 


PUSH 

BC 

159 


CRLL 

CflRRC 

16© 


LD 

B, 8 

161 

l_6 

LD 

fl, (HL) 

162 


LD 

(DE) ,fl 

163 


INC 

D 

164- 


INC 

HL 

165 


DJNZ 

L6 

166 


POP 

BC 

167 


RET 


168 

CLS 

LD 

HL,22528 

169 


LD 

B, 22 

170 

LU 

LD 

C , 32 

171 

L10 

LD 

(HL),9 

172 


INC 

HL 

173 


DEC 

C 

174- 


JP 

NZ,L10 

175 


DEC 

B 

176 


JP 

NZ,L11 

177 


RET 


178 

DESS 

LD 

H , S 

179 

LIS 

LD 

L , 16 

IBS 


LD 

fl , H 

181 


RDD 

R, L 

182 


LD 

L ,fl 

183 

LIS 

PUSH 

HL 

184 


DEC 

L 

185 


LD 

fl , 144 

186 


CRLL 

RFFIC 

187 


POP 

HL 

188 


LD 

R , S 

189 


LD 

(BC) ,fl 

190 


DEC 

L 

191 


LD 

fl,H 

192 


CP 

L 

193 


JP 

NZ,L15 

194 


DEC- 

H 

195 


LD 

fl, H 

196 


CP 

1 

197 


JP 

NZ , L16 

198 


LD 

H,21 

199 


LD 

L , 32 

200 

L17 

PUSH 

HL 

201 


LD 

fl, 145 

202 


DEC 

L 

203 


CRLL 

RFFIC 

204 


POP 

HL 

205 


LD 

R, 32 

206 


LD 

(BC) , R 

207 


DEC 

L 

208 


JP 

NZ , L17 

209 


LD 

fl, 16 

210 


LD 

(39000),fl 

211 


LD 

H, 20 

212 


LD 

L, 16 

213 


LD 

R, 146 

214 


CRLL 

RFFIC 

215 


LD 

R, 15 

216 


LD 

(BC),R 

217 


RET 


218 

DEPL 

LD 

R, (39000) 

219 


LD 

L , R 

220 


LD 

H, 2© 

221 


CRLL 

PR INT 

222 


DEC 

BC- 

223 


LD 

R,9 

224 


LD 

(BC),R 

225 


INC 

BC 

226 


INC 

BC 


227 


LD 

(BC) ,fl 

228 


CRLL 

654 

229 


LD 

R , E 

230 


CP 

36 

231 


JP 

Z,DPI 

232 


CP 

35 

233 


JP 

Z,DP2 

234 


CRLL 

CANON 

235 


RET 


236 

DP2 

LD 

fl, (39000) 

237 


INC 

R 

238 


CP 

31 

239 


RET 

Z 

240 


LD 

(39000),R 

241 


CRLL 

CANON 

242 


RET 


243 

DPI 

LD 

fl, (39000) 

244 


DEC 

R 

245 


CP 

0 

246 


RET 

Z 

247 


LD 

(39000),fl 

248 


CRLL 

CANON 

249 


RET 


250 

CANON 

LD 

H, 20 

251 


LD 

R,(39000) 

252 


LD 

L ,fl 

253 


PUSH 

HL 

254 


LD 

fl, 147 

255 


CRLL 

RFFIC 

256 


LD 

R, 10 

257 


LD 

(BC),R 

258 


POP 

HL 

259 


DEC 

L 

260 


PUSH 

HL 

261 


LD 

fl, 153 

262 


CRLL 

RFFIC 

263 


LD 

R , 10 

264 


LD 

(BC),R 

265 


POP 

HL 

266 


INC 

L 

267 


INC 

L 

268 


LD 

R , 153 

269 


CRLL 

RFFIC 

270 


LD 

fl , 10 

271 


LD 

(BC),fl 

272 


RET 


273 

TIME 

LD 

B , 20 

274 

Tl 

LD 

E P55 

275 

TS 

DEC 

E ' 

275 


JP 

NZ ,T2 

277 


DEC 

B 

278 


JP 

NZ,T1 

2?‘9 


RET 


28© 

CRBRN 

LD 

H , 16 

281 


LD 

L ,2 

282 


CRLL 

MRIS 

283 


LD 

L , 10 

284 


CRLL 

MRIS 

285 


LD 

L , 18 

286 


CRLL 

MRIS 

287 


LD 

L , 26 

28S 


CRLL 

MRIS 

289 


RET 


290 

MAIS 

PUSH 

HL 

291 


LD 

B , 4 

292 

Ml 

LD 

C , 3 

293 

M2 

PUSH 

BC 

294 


LD 

fl, 148 

295 


PUSH 

HL 

296 


CRLL 

RFFIC 

297 


POP 

HL 

298 


LD 

R, 13 

299 


LD 

(BC) , R 

300 


POP 

BC 

301 


INC 

H 

302 


DEC 

C 

303 


JP 

NZ,M2 

304 


INC 

L 

305 


DEC 

H 

306 


DEC 

H 

307 


DEC 

H 

308 


DEC 

B 

309 


JP 

NZ , Ml 

310 


POP 

HL 

311 


RET 


312 

SCROL 

LD 

HL , 39002 

313 


RLC 

(HL) 

314 


RET 

NC 

315 


LD 

fl , 0 

316 


LD 

(39042) ,fl 

317 


CRLL 

INUER 

318 


LD 

D , 10 

319 


CRLL 

BPI 

320 


LD 

R, (39001) 

321 


CP 

0 

322 


JP 

Z, SCI 

323 


CP 

1 

324 


JP 

Z,SC2 

325 


CP 

2 

326 


JP 

Z, SCS 

327 


CP 

3 

328 


JP 

Z , SC-4 

329 


RET 


330 

SCI 

LD 

H , 19 

331 

S3 

LD 

L ,31 

332 

52 

PUSH 

HL 

333 


DEC 

L 

334 


CRLL 

PRINT 

335 


POP 

HL 

336 


LD 

fl, (BC) 

337 


CP 

8 

338 


JP 

NZ , SI 

339 


PUSH 

RF 

340 


LD 

R, 1 


341 


LD 

(39042),R 

342 


POP 

RF 

343 


LD 

D , R 

344 


LD 

R, 9 

345 


LD 

(BC) , R 

346 


LD 

R, D 

347 


INC 

BC 

348 


LD 

(BC) ,fl 

349 


INC 

L 

350 


LD 

R, 144 

351 


PUSH 

HL 

352 


DEC 

L 

353 


CRLL 

RFFIC 

354 


POP 

HL 

355 


DEC 

L 

356 


LD 

R , L 

357 


CP 

31 

358 


JP 

NZ,S1 

359 


LD 

R,2 

360 


LD 

(39001),R 

361 

SI 

DEC 

L 

362 


JP 

NZ,52 

363 


DEC 

H 

364 


JP 

NZ,S3 

365 


LD 

R,(39042) 

366 


CP 

0 

367 

368 


JP 

RET 

Z, FIN 

369 

SC2 

LD 

H , 1 

370 

S4 

LD 

L , 0 

371 

S5 

PUSH 

HL 

372 


INC 

L 

373 


CRLL 

PRINT 

374 


POP 

HL 

375 


LD 

R, (BC) 

376 


CP 

8 

377 


JP 

NZ, S6 

378 


PUSH 

RF 

379 


LD 

fl, 1 

380 


LD 

(39042),fl 

381 


POP 

RF 

382 


LD 

D , R 

383 


LD 

R,9 

384 


LD 

(BC),fl 

385 


DEC 

BC 

386 


LD 

R,D 

387 


LD 

(BC) , R 

388 


DEC 

L 

389 


LD 

R, 144 

390 


PUSH 

HL 

391 


INC 

L 

392 


CRLL 

RFFIC 

393 


POP 

HL 

394 


INC 

L 

395 


LD 

R , L 

396 


CP 

0 

397 


JP 

NZ , 56 

398 


LD 

R,3 

399 


LD 

(39001),R 

400 

S6 

INC 

L 

401 


LD 

R , L 

402 


CP 

31 

403 


JP 

NZ , 55 

404 


INC 

H 

405 


LD 

R,H 

406 


CP 

20 

407 


JP 

NZ,S4 

408 


LD 

R, (39042) 

409 


CP 

0 

410 

411 


JP 

RET 

Z, FIN 

412 

SCS 

LD 

R, 1 

413 


LD 

(39001),R 

414 


JP 

SCROU 

415 

SC4 

LD 

fl, 0 

416 


LD 

(39001),fl 

417 

SCROU 

LD 

H , 19 

418 

S9 

LD 

L , 32 

419 

58 

PUSH 

HL 

420 


DEC 

L 

421 


CRLL 

PRINT 

422 


POP 

HL 

423 


LD 

R,(BC) 

424 


CP 

8 

425 


JP 

NZ , 57 

426 


LD 

D , R 

427 


LD 

R, 9 

428 


LD 

(BC),fl 

429 


INC 

H 

430 


PUSH 

DE 

431 


PUSH 

HL 

432 


LD 

R, 144 

433 


DEC 

L 

434 


CRLL 

RFFIC- 

435 


POP 

HL 

436 


POP 

DE 

437 


DEC 

H 

438 


LD 

R , D 

439 


LD 

(BC),H 

440 

57 

DEC 

L 

441 


JP 

NZ , SS 

442 


DEC 

H 

443 


JP 

NZ , S9 

444 


LD 

HL,39012 

445 

446 


INC 

RET 

(HL) 

447 

IN IT 

LD 

R , 0 

448 


LD 

(39001),R 

449 


LD 

(39006),fl 

450 


LD 

(39020) ,fl 

451 


LD 

(39034),R 

452 


LD 

(39040) ,fl 

453 


LD 

HL,1200 
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C/5 

LU 

X 

LU 


LU 

LU 


û£ 


454 


LD 

(39010),HL 

568 

PUSH 

HL 

4-55 


LD 

fl, 9 

569 

LD 

fl, 150 

4-56 


LD 

(39012),fl 

570 

CRLL 

RFFIC 

4-57 


LD 

fl, 75 

571 

LD 

fl, 79 

458 


LD 

(39030)ifi 

572 

LD 

(BC),fl 

459 


LD 

fl, 65 

573 

POP 

HL 

460 


LD 

(39032),R 

574 

PUSH 

BC 

461 


LD 

fl, 85 

575 

CfiLL 

EXPLO 

462 


LD 

(39S35),fl 

576 

POP 

BC 

463 


RET 


577 

LD 

fl,9 

464 

INSCO 

LD 

HL , 0 

578 

LD 

(BC),fl 

465 


LD 

(39038),HL 

579 

LD 

HL,(39038) 

466 


LD 

R, 1 

580 

LD 

BD,1©00 

467 


LD 

(39002),fl 

581 

flDD 

HL , BC 

468 


RET 


582 

LD 

(39038),HL 

469 

BEEP 

LD 

D , 2 

583 

61=7 


470 

BPI 

LD 

fl, 16 

584 HTIR 

LD 

fl, 0 

471 


O UT 

(254),R 

585 

LD 

(39006),fl 

472 


LD 

B,1 

586 

RET 


473 


CfiLL 

Tl 

587 EXPLO 

LD 

D , 100 

474 


LD 

fl, 0 

588 EX1 

LD 

fl , 16 

475 


O UT 

(254),fl 

589 

DUT 

(254),fl 

476 


LD 

B,1 

590 

CRLL 

RTT 

477 


CRLL 

Tl 

591 

LD 

fl , 0 

478 


DEC 

D 

592 

O UT 

(254),fl 

479 


JP 

NZ,BPI 

593 

CRLL 

RTT 

480 


RET 


594 

DEC 

D 

481 

TIR 

CRLL 

654 

595 

JP 

NZ,E.X1 

482 


LD 

R , E 

596 

LD 

HL,1200 

483 


C-P 

37 

597 

LD 

(39010),HL 

484 


RET 

NZ 

598 

RET 


485 


LD 

R, (39006) 

599 RTT 

LD 

HL,(39010) 

486 


CP 

1 

600 

LD 

fl, (HL) 

487 


RET 

Z 

681 . 

LD 

C,fl 

488 


LD 

R, (39000) 

602 

INC 

HL 

489 


LD 

(39004) ,fl 

603 

LD 

(39010),HL 

490 


LD 

fl, 20 

604 flTTl 

DEC 

C 

491 


LD 

(39085) ,fl 

605 

JP 

NZ,flTTl 

492 


LD 

R, 1 

606 

RET 


493 


LD 

(39006),fl 

607 INUER 

LD 

HL,(23675) 

494 


RET 


608 

LD 

D , H 

495 

RT IR 

LD 

fl, (39004) 

689 

LD 

E , L 

496 


LD 

L,R 

610 

LD 

B , 8 

497 


LD 

fl,(39005) 

611 NBY 

LD 

fl,(HL) 

498 


LD 

H,fl 

612 

INC 

HL 

499 


LD 

B, 146 

613 

PUSH 

flF 

500 


CRLL 

RFF IC 

614 

DJNZ 

NBY 

501 


LD 

fl, 11 

615 

LD 

B, 8 

502 


LD 

(BC),fl 

616 REPL 

POP 

flF 

503 


RET 


617 

LD 

(DE) ,fl 

504 

MT IR 

LD 

fl,(39006) 

618 

INC 

DE 

505 


CP 

1 

619 

DJNZ 

REPL 

506 


RET 

NZ 

620 

RET 


507 


LD 

fl, (39004) 

621 BOMB 

LD 

fl, (39020) 

508 


LD 

L,fl 

622 

CP 

1 

509 


LD 

fl, (39005) 

623 

JP 

Z,TBOHB 

510 


LD 

H,fl 

624 

LD 

fl, 1 

511 


LD 

fl,0 

625 

LD 

(39020),fl 

512 


PUSH 

HL 

626 

LD 

fl, (39012) 

513 


CfiLL 

RFFIC 

627 

INC 

fl 

514 


POP 

HL 

628 

LD 

H,fl 

515 


LD 

fl,9 

629 B03 

LD 

L , 0 

516 


LD 

(BC) ,fl 

630 B02 

PUSH 

HL 

517 


DEC 

H 

631 

CfiLL 

PR INT 

518 


LD 

H,H 

632 

POP 

HL 

519 


CP 

0 

633 

LD 

fl, (BC) 

520 


JP 

Z , HT IR 

634 

CP 

8 

521 


PUSH 

HL 

635 

JP 

Z,BOl 

522 


CRLL 

PR INT 

636 B07 

INC 

L 

523 


POP 

HL 

637 

LD 

fl , L 

524 


LD 

fl, (BC) 

638 

CP 

31 

525 


CP 

S 

639 

JP 

NZ,B02 

526 


JP 

Z, FPTIR 

640 

DEC 

H 

527 


CP 

11 

641 

LD 

fl , H 

528 


JP 

Z , DESCO 

642 

CP 

8 

529 


CP 

13 

643 

JP 

NZ,803 

530 


JP 

Z , FT IR 

644 

RET 


531 


LD 

HL,39005 

645 BOl 

LD 

fl,(39032) 

532 


DEC 

(HL) 

646 

RLC 

fl 

533 


CRLL 

ATIR 

647 

LD 

(39032) ,fl 

534 


RET 


648 

JP 

NC , B07 

535 

FT IR 

LD 

fl , 0 

649 

PUSH 

HL 

536 


LD 

(39006) ,fl 

650 

INC 

H 

537 


LD 

fl, 150 

651 

CRLL 

PR INT 

538 


PUSH 

HL 

652 

POP 

HL 

539 


CRLL 

AFFIC 

653 

LD 

fl, (BC) 

540 


LD 

fl, 79 

654 

CP 

8 

541 


LD 

(BC) ,fl 

655 

JP 

Z , B07 

542 


POP 

HL 

656 

LD 

fl, 146 

543 


PUSH 

BC 

657 

INC 

H 

544 


CRLL 

EXPLO 

658 

PUSH 

HL 

545 


POP 

BC 

659 

CRLL 

RFFIC 

546 


LD 

fl, 9 

660 

POP 

HL 

547 


LD 

(BC) ,fl 

661 

LD 

fl, 14 

548 


RET 


662 

LD 

(BC) ,fl 

549 

FPTIR 

PUSH 

HL 

663 

LD 

fl, H 

550 


LD 

HL,(39038) 

664 

LD 

(39022) ,fl 

551 


LD 

BC, 100: 

665 

LD 

A,L 

552 


HDD 

HL , BC 

666 

LD 

(39024) ,fl 

553 


LD 

(39038) , HL 

867 

RET 


554 


POP 

HL 

ëëè TBOMB 

LD 

fl, (39030) 

555 


JP 

FTIR 

669 

RLC 

fl 

556 

DESCQ 

LD 

fl, (39034) 

670 

LD 

(39030) ,fl 

557 


LD 

L , fl 

671 

RET 

NC 

558 


LD 

H , 1 

672 

LD 

fl, (39022) 

559 


PUSH 

HL 

673 

LD 

H , fl 

560 


CRLL 

PR INT 

674 

LD 

fl, (39024) 

561 


POP 

HL 

675 

LD 

L , fl 

562 


LD 

fl, 9 

676 

PUSH 

HL . 

563 


INC 

BC 

677 

CRLL 

PR INT 

564 


LD 

(BC) ,fi 

678 

LD 

fl, 9 

565 


LD 

fl , 0 

679 

LD 

(BC) ,fl 

566 


LD 

(39034) ,fl 

680 

POP 

HL 

567 


LD 

(39006) ,fl 

681 

INC 

H 


682 


PUSH 

HL 

683 


CRLL 

PR INT 

684 


POP 

HL 

ses 


LD 

fl, (BC) 

686 


CP 

32 

687 


JP 

Z,FTBS 

688 


CP 

13 

689 


JP 

Z, FTB 

690 


CP 

10 

691 


JP 

Z,DUIE 

692 


LD 

fl, H 

693 


LD 

(39022) ,fl 

694 


LD 

fl, 146 

695 


CfiLL 

AFFIC 

696 


LD 

fl, 14 

697 

698 


LD 

RET 

(BC) ,fl 

699 

FTB 

PUSH 

flF 

700 


PUSH 

HL 

701 


CfiLL 

EXPLO 

702 


LD 

fl , 0 

703 


LD 

(39020) ,fl 

704 


POP 

HL 

705 


POP 

RF 

706 


CP 

13 

707 

708 


JP 

RET 

Z,DESB 

709 

FTBS 

LD 

fl,0 

710 

711 


LD 

RET 

(39020) ,fl 

712 

DESB 

PUSH 

HL 

713 


CfiLL 

PR INT 

714 


LD 

H, (DE) 

715 


POP 

HL 

716 


CP 

126 

717 


JP 

NZ,DESB1 

718 


LD 

fl, 149 

719 


CRLL 

AFFIC 

720 


LD 

fl, 13 

721 

722 


LD 

RET 

(BC) ,fl 

723 

DESB1 

CfiLL 

PR INT 

724 


LD 

fl, 9 

725 


LD 

(BC) ,fl 

726 

SOUC 

LD 

HL,39035 

727 


RLC 

(HL) 

728 


RET 

NC 

729 


LD 

fl, (39034) 

730 


LD 

L , fl 

731 


LD 

H, 1 

732 


PUSH 

HL 

733 


CfiLL 

PR INT 

734 


LD 

fl , 9 

735 


LD 

(BC),fi 

736 


POP 

HL 

737 


PUSH 

HL 

738 


INC 

L 

739 


CRLL 

PR INT 

740 


LD 

fl, 9 

741 


LD 

(BC) ,fl 

742 


POP 

HL 

743 


INC 

L 

744 


LD 

n,L 

745 


CP 

31 

746 


JP 

Z,FSOUC 

747 


LD 

(39034),A 

748 


LD 

fl, 151 

749 


PUSH 

HL 

750 


CRLL 

RFFIC 

751 


POP 

HL 

752 


LD 

fl, 11 

753 


LD 

(BC) ,fl 

754 


PUSH 

HL 

755 


INC 

L 

756 


LD 

fl, 152 

757 


CflLL 

AFFIC 

758 


POP 

HL 

759 


LD 

fl , 11 

7ë0 

761 


LD 

RET 

(BC) ,fl 

762 

FSOUC 

LD 

fl , 0 

763 

764 


LD 

RET 

(39034) ,fl 

765 

SCORE 

LD 

H , 22 

766 


LD 

L , 14 

767 


LD 

DE, (39038: 

768 


LD 

BC,55536 

769 


CflLL 

SBI 

770 


LD 

BC,64536 

771 


CflLL 

SBI 

772 


LD 

BC- , 65436 

773 


CflLL 

SBI 

774 


LD 

BC,65526 

775 


CflLL 

SBI 

776 


LD 

BC,65535 

777 

SBI 

LD 

fl, 47 

778 


PUSH 

HL 

779 


PUSH 

DE 

780 


POP 

HL 

781 

SBI1 

INC 

fl 

782 


flDD 

HL , BC 

783 


JR 

C , SBII 

784 


SBC 

HL , BC 

785 


EX 

DE, HL 

786 


POP 

HL 

787 


PUSH 

HL 

788 


PUSH 

DE 

789 


CflLL 

AFFIC 

790 


POP 

DE 

791 


POP 

HL 

792 


INC 

L 

793 


LD 

fl, 150 

794 

795 


LD 

RET 

(BC) ,fl 
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796 

VITE 

LD 

fl, (3904-0) 

797 


CP 

1 

79s 


R ET 

Z 

vX 799 


LD 

fl, (39038) 

800 


CP 

4-0 

Xv 801 


RET 

NZ 

002 


LD 

fl,(39039) 

vX 803 


CP 

35 

004 . 


RET 

NZ 

805 


LD 

fl, 17 

soe 


LD 

(39002),fi 

807 


LD 

R , 1 

Xx 808 


LD 

(3904-0) ,fl 

809 


RET 


vX 310 

FIN 

POP 

HL 

su 


CRLL 

CLS 

XX 812 


JP 

GENER 

s 13 

VIES 

LD 

A,4- 

vX 814 


LD 

(39050) ,fl 

sis 


LD 

H, 22 

Xv 816 


LD 

L , 2 

8 17 

un 

LD 

fl, 14-7 

sis 


PUSH 

HL 

s 19 


CRLL 

RFF IC 

820 


LD 

R,2 

vX 821 


LD 

IBC) ,fl 

822 


POP 

HL 

Xx 823 


INC 

L 

824- 


INC 

L 

vX 825 


LD 

R , L 

326 


CP 

8 

Xv 827 


JP 

NZ,UI1 

sas 


RET 


829 

DU IE 

LD 

F», (39050) 

Xv 830 


HDD 

A, fl 

Xv 831 


DEC 

fl 

Xv: 832 


DEC 

fl 

833 


LD 

L , fl 

Xv 834 


LD 

H, 22 

835 


CRLL 

PRINT 

vX 836 


LD 

fl, 0 

837 


LD 

(BC) ,A 

838 


CRLL 

ZAP 

>:>: 839 


LD 

fl, (39050) 


84-0 


DEC 

fl 

84-1 


LD 

(39050) 

842 


JP 

NZ,FTBS 

843 

BASIC 

POP 

BC 

844 


RET 


845 

ZRP 

LD 

H, 20 

846 


LD 

fl, (39001 

847 


LD 

L , R 

848 


CRLL 

PRINT 

849 


LD 

E , 254 

850 

Z3 

LD 

D,5 

851 

22 

LD 

R, 16 

852 


OUT 

(254) ,fl 

853 


CRLL 

ZI 

854 


LD 

R , 0 

855 


OUT 

(254),fl 

856 


CRLL 

ZI 

857 


DEC 

D 

858 


JP 

NZ,Z2 

859 


DEC 

E 

860 


DEC 

E 

861 


LD 

fl , E 

862 


LD 

(BC) ,fl 

863 


LD 

R , E 

864 


CP 

10 

865 


JP 

NZ,Z3 

866 


RET 


867 

ZI 

LD 

H , E 

368 

Z4 

DEC 

H 

869 


JP 

NZ , Z4 

870 


RET 


871 

ENUBfl 

LD 

H, 20 

872 


LD 

L , 0 

873 

ENU1 

PUSH 

HL 

874 


CRLL 

PRINT 

875 


POP 

HL 

S76 


LD 

fl, (BC) 

877 


CP 

e> 

878 


JP 

Z,BASIC 

879 


INC 

L 

880 


LD 

fl , L 

881 

882 


CP 

JP 

32 

NZ,ENU1 

883 


RET 



Serpent trois 
(ZX811SK) 

Un serpent difficile à charmer que celui de M. Chanaud : il dévore les étoiles 
comme un monstre mythique. Assembler le programme dans une REM de 
773 octets à partir de l'adresse 16516 (Assembleur ARTIC). 

Utilisation du programme : 

— On a le droit de refuser un tableau en appuyant sur une des touches Z, X, C, V. 
Donc, bien analyser le tableau proposé avant de foncer car une étoile peut être 
imprenable, ou la sortie peut être obstruée. 

— Il faut relâcher la pression sur la touche manoeuvrée pour que le prochain 
appui puisse être pris en compte. (Le demi-tour sur place, qui est facile aux 
vitesses lentes, demande une grande dextérité quand ça va vite...). 

— Au démarrage, on peut partir directement à droite ou à gauche avec les 
touches de direction. Pour partir tout droit, appuyer sur une touche « lettre » 
quelconque (sauf Z, X, C, V). 

Chaque fois que l'on prend une sortie, on bénéficie d'un Bonus égal au nombre 
d'étoiles que contenait le tableau. 

— On peut arrêter le programme par une touche shiftée (p. ex. SHIFT 
RUBOUT) lorsque le serpent est en attente de départ. 

1 REM 

10 GQSUB 3000 
20 GGSUB 1000 
30 rrnd 

XvXXvXXvXvXX 4-0 let high=peek 25032+ 256 *pee 
x-x-xvx-x-tfxvxv: K asssss 

«ts rrnd usr issie 
s® let score=peek ssibs+sssïpe 


55 CLS 

60 XF SCORE<HIGH THEN GOTO 100 
65 POKE 25032.. PEEK 25102 
70 POKE 25033,PEEK 25103 
75 LET HIGH =PEEK 25092+256ïPEE 

K 25093 __ 

80 PRINT RT 8,18; "ISiHffl" 

85 PRINT RT 10,0; "VOUS RUEZ BP» 
TTU LE RECORD .",,,'TL EST MAINT 
ENflNT DE ";HIGH;" PTS" 
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REFLEXES 



30 GOTO 120 

100 PRINT RT 15,0;"UÜTRE SCORE 
EST SCORE; “ PTS'' 

110 PRINT , ,"LE RECORD EST DE " 

;high;" pts” 

120 PRINT RT 20,0;“ UOULEZ-UOU 
S REJOUER " 

130 PRINT " R LA MEME UITESSE 
? ( " ; R$; " >“ 

14-0 IF INKEY $ = " " THEN GOTO 14.0 
150 IF INKEY$ < >"N" THEN GOTO 30 
ISO GOSUB 1300 
170 GOTO 30 
1000 REM REGLE 
1010 CLS 

1020 PRINT , , “ m wawM t i inrn*ee*gMUMxam asm 


103© PRINT T RB 3; 

E N T Kg" 

104.0 PRINT TRB 3; " B- 


R 


105@ PRINT- TRB 3:“ 


1055 PRINT RT 6,19;“/'' 

106© PRINT "B LE “"SERPENT"" SE 
DEPLACE SUR " 

1065 PRINT TRB 4; " 7" 

1070 PRINT " L“ "'ECRAN ET UOUS L 

E DIRIGEZ" 

10T5 PRINT TRB 22; "7" 

1088 PRINT " RUEC LES TOUCHES N 
UMERIQUES:" 

1035 PRINT 1-5 (GAUCHE) ET 

6-0 (DROITE)“ 

1090 PRINT ,, “H LE BUT DU JEU ES 
T DE MANGER" 

1095 PRINT TRB 6; ”/" 

1100 PRINT ” LES ETOILES SRNS P 
ERCUTER LE" 

1110 PRINT , ,“ CADRE, NI LES OB 

•îTûpi cr<=, KIT" 

1120 PRINT LE CORPS DU SERP 

ENT. " 

1150 IF INKEY $ = "" THEN GOTO 1150 
1150 CLS 

1165 PRINT TRB 23; ”7" 

1170 PRINT "11 OURND UOUS .AUREZ M 
ANGE TOUTES" 

1175 PRINT TAB 6 ; " 7" 

1130 PRINT " LES ETOILES, UNE S 
ORTIE APPAR-" 

1190 PRINT AITRR OU"”IL FRU 

DRA EMPRUNTER" 

1195 PRINT TAB 17;"-“ 

1200 PRINT " POUR CONTINUER A U 
OUER AUEC UN" 

1205 PRINT ,NOUVEAU TABLEAU. 


1206 PRINT ,," (X) PERMET DE PAS 

SER AU SUIUANT” 

1208 PRINT TAB 18;"-" 

1210 PRINT UOUS RUEZ DROIT R 

DEUX FAUSSES" 

1215 PRINT TRB 23;"-" 

1220 PRINT " MANOEUVRES; Lfl TRO 
ISIEME SERA" 

1230 PRINT FATALE..." 

124-0 PRINT , , "U MAIS SI UOUS SOR 
TEZ DEUX FOIS" 

124.5 PRINT TRB 26; “Y" 

1250 PRINT " UOS ERREURS SERONT 
EFFACEES." 

1260 IF INKEY $ = "” THEN GOTO 1260 
1300 CLS 

1310 PAINT BT 2,6;"VITESSE CHOIS 
IE ?" 

1315 PRINT RT S, 11; "7 /■" 

132© PRINT "DE 0 -> TRES TRES F 
ORT..." 

1330 FOR 1=1 TO 4 
1340 PRINT ,," 

1350 NEXT I 

1355 PRINT TRB 1:"-" 

1360 PRINT "fl g -> CONFORTABLE 


1370 IF INKEY $ = "" THEN GOTO 1370 
1330 LET R$=INKEY$ 

1390 IF R$<"1“ OR R$>"9" THEN GO 
TO 1370 

1400 LET HIU=200*UAL CR$> 

1410 POKE 25110,NIU-256*INT (NIU 
7256) 

1420 POKE 25111,INT (NIU/2S6) 
1500 RETURN 

2000 rem mB&S&BEBBBm 

2010 CLS 
2020 LET X=0 
2030 LET Y =0 
2040 LET R=1 
2050 LET fl$ = " 




2060 LET B$ = " M.CHRNRUD" 

3030 FOR 1=1 TO 13 

3040 FOR J=1 TO 4 

3050 LET X=X+1 

3060 IF X <60 THEN PLOT X,Y 


3070 IF X >=12 THEN UNPLOT X-12,3 

3030 NEXT U 

3090 FOR J = 1 TO 3 

3200 LET Y=Y+A 

3210 IF X < 60 THEN PLOT X.Y 

3220 IF X>=12 THEN UNPLOT X-12,3 

3230 NEXT U 

3240 LET A=—A 

3250 NEXT I 

3260 PRINT RT 5,0;R$ 

3320 LET L=LEN B$ 

3330 FOR I=L TO 1 STEP -1 
3340 FOR J=1 TO 27+I-L 
3350 PRINT RT 19,J-1," " 

3360 PRINT RT 19 , J ; B $ CI.) 

3370 NEXT U 
3380 NEXT I 
3390 RETURN 
9000 CLERR 
9010 SRUE 

9020 POKE 16389,98 
9030 CLS 
9040 RUN 


RELACH=S201 
SORTIE =6202 
OBST = 6203 
HIGH = 6204 
TAMPON=6206 
ADSTT = 6208 
NB ET = S2SA 
NOMBRE=620B 
FLRG = 620C 
NCHOC = 620D 
SCORE = 62ÜE 
NBANN= 6210 
ADETT = 6212 
UALDP = 6214 
RETARD=6216 
DSTOCK =6218 
D3T02= 62IA 


; 1= TOUCHE RELACHEE 
;NBRE DE SORTIES 
;NBRE D OBSTACLES 
;HIGH-SCORE 
;NUELLE ADRES.TETE 
; ADR.STOCK POS.TETE 
;CPTE NBRE D ETOILE 
;NBRE D ETOILES 
; COMPTEUR ALLONGEM. 
; COMPTE NBRE CHOCS 
,SLORE... 

;NBRE D ANNEAUX 
; ADR. ECRAN E-E TETE 
;UAL. POUR DEPLACEM 
; BOUCLES TEMPORISAT 
; DEBUT DU STOCK ANN 
; 2EME ANNEAU 



CALL 0A2A 

LD A , 0 

LD (NCHOC) ,A 

LD COB ST) ,A 

LD(SORTIE),A 
LD HL,0 

LD(SCORE),HL 
LD A, 8 

LD (NOMBRE).A 

REDEP 

LD BC,3000 

WA IT 

DEu BC 

LD A, C 

OR C5 


JR NZ UAIT 

LD A , 0 

LD (RELRCH) ,A 
CALL RELA 

LD A,(RELACH) 
CP 1 

JR NZ REDEP 

LD A , 1 

LD (RELACH) ,A 
JP CADRE 

RFSCO 

LD HL,(SCORE) 
INC HL 

LD (SCORE),HL 
LD HL, (4000 
LD DE,001E 

ADD HL,DE 

CQMPT 

LD A,(HL) 

CP 0 

JR NZ PLUS 

LD A,IC 

PLUS 

INC A 

CP 26 
.JR C FIN 

LD(HL),IC 

DEC HL 

JR COMPT 

FIN 

LD(HL),A 

R ET 

EX IT 

LD HL, (4000 
LD BC,©0x0 

ADD HL..BC 

LD(HL),0080 
INC HL 

LD(HL),003D 
INC HL 

LD (HL) ,©080 

LD BC,0020 

ADD HL,BC 

LD (HL) ,© 

RET 

ALEA 

LD HL,(4032) 
LD D , H 

LD E , L 

ADD HL.HL 

ADD HL,DE 

ADD HL,HL 

ADD HL,DE 
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I_3 

L1 


i_a 


ADD HL,HL 
RDD HL,HL 
RDD HL,DE 
INC L 

LD C 4-032 ) , HL 
R ET 

RELfl RUSH BC 

LD BC, (4025) 
LD fl,FF 
CP C 
POP BC 
RET NZ 
LD fl, 1 
LD(RELflCHï,A 
RET 

CADRE LD HL,1 

LD tURLDPJ,HL 
LD HL, (4-000 
LD BC,0022 
ADD HL,BC 
PUSH HL 
PUSH HL 
LD B, 16 
INC HL 
LD C,(HL1 
LD A, C 
CP 76 
JR Z L2 
LD (HL),0 
INC HL 
ÜR L1 
DJNZ L3 
POP HL 
LD DE,02D6 
ADD HL,DE 
POP DE 

HORIZ LD fl,(HL) 

CP 76 

JR Z SUITE 
LD 0,80 
LD (HL) ,fl 
LD (DE) ,fl 
INC HL 
INC DE 
JR HORIZ 

SUITE LD HL, (4000 
LD DE,21 
ADD HL,DE 
DEC DE 
DEC DE 
LD B,16 
UERTI INC HL 

LD (HL) , 80 
ADD HL,DE 
LD(HL),80 
INC HL 
DJNZ UERTI 
LD BC,09 
LD(Nb6nN),BC 
LD HL, (4000 
LD BC,01SF 
ADD HL,BC 
PUSH HL 
LD D , H 
LD E,L 

LD HL,D5TOCK 
LD B,0fl 

INCR LD(HL),E 
INC HL 
LD CHL),D 
INC DE 
INC HL 
DJNZ INCR 
DEC HL 
DEC HL 

LD(BDSTT),HL 
POP HL 
LD B,9 

SERP LD (HL),88 
INC HL 
DJNZ SERP 
LD(HL),00B4 
LD (flDETT),HL 
ETOIL LD O,(NOMBRE) 
INC fl 
INC fl 

LD (NOMBRE),A 
LD C, A 

ENCET COLL GENER 

LD (HL),0017 
DEC C 

JR NZ ENCET 
LD 0,0 
LD(NBET),fi 
LD fl,(OBST) 

INC O 
INC. fl 

LD (OBST) ,fl 
LD C,fl 

ENCOB COLL GENER 
LD (HL),80 
DEC C 

JR NZ ENCOB 
JP CORflC 
GENER COLL OLEfl 
LD O , D 
RRCO 
RLO 

JR C 4 
OND 2 
JR 2 
OND 1 
LD D , A 


OK 


CORflC 


CP 0 

JR NZ OK 
LD fl , E 
CP 21 

JR C GENER 
LD HL, (4000 
ADD HL,DE 
XOR fl 
CP(HL) 

JR NZ GENER 
RET 

LD BC, (4025) 
LD D,C 
INC D 

JR Z CflRflC 
LD SC,(4025) 
LD fl,FE 
r'R c 

JP Z REDEP 
LD HL,(4025) 
BIT 0 , H 
JR NZ 2 
R ST S 
”6F , ‘ 


CLflU 

LD 

O,(RELRCH) 


CP 

0 


JR 

Z DEPLO 


LD 

BC,(4025) 


LD 

R , FF 


CP 

C 


JR 

Z DEPLfi 


LD 

0,0 


LD 

(RELRCH) ,fl 


LD 

fl, 1 


LD 

fl, F7 


CP 

C 


JR 

NZ APRES 


LD 

E, 0 


JR 

TESTS 

RPRES 

LD 

fl, EF 


CP 

O 


JR 

NZ DEPLfi 


LD 

E , FF 

TESTS 

CflLL RELfl 


LD 

BC,(UALDP) 


LD 

fl, 1 


CP 

C 


JR 

Z HORP 


LD 

fl ,21 


CP 

C 


JR 

Z UERP 


LD 

fl , -1 


CP 

C 


JR 

Z HORM 


LD 

fi,0 


CP 

E 


JR 

Z MOINI 


JR 

PLUS 1 

HORP 

LD 

fl, 0 


CP 

E 


JR 

Z MOINS 


JR 

PLUS3 

UERP 

LD 

fl, 0 


CP 

E 


JR 

Z PLUS1 


JR 

MO INI 

HORM 

LD 

R , 0 


CP 

E 


JR 

Z PLUS3 


JR 

MOINS 

PLUS 1 

LD 

BC, +1 


LD (UALDP) , BC 


JR 

DEPLfi 

MO IN 1 

LD 

BC, -1 


LD CUftLDP) ,BC 


JR 

DEPLfi 

PLUS3 

LD 

BC,+33 


LD (UALDP) ,BC 


JR 

DEPLfi 

MOINS 

LD 

BC,-33 


LD (UALDP) ,BC 

DEPLfi 

CflLL RELfl 


LD 

HL,(flDETT) 


LD 

BC,(DfiLDP) 


ADD HL,BC 


LD(TAMPON),HL 


LD 

fl , 0 


CP 

(HL) 


JR 

Z COfïT 


CflLL RELfl 


LD 

fl,+128 


CP 

(HL) 


JR 

NZ GRIS 


CflLL CHOC 


LD 

R,(NCHOC) 


CP 

3 


RET Z 


JP 

REDEP 

GRIS 

LD 

fl,+13S 


CP 

(HL) 


JR 

NZ P IL 


COLL CHOC 


LD 

fl,(NCHOC) 


CP 

3 


RET Z 


jp 

REDEP 

P IL 

LD 

fl, +23 


CP 

(HL) 


JR 

Z MflNGE 


JR 

CONT 

CHOC 

EX 

DE, HL 


LD 

HL,NCHOC 


INC (HL) 
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i_d bc, (4-eecj 

LD HL.. 0 
LD fi,(NCHOC! 

LD L,R 
HDD HL,HL 
HDD HL■BC 
LD (HL) , +14-3 ■ 
RET 

HflNGE CHLL HFSCO 
CHLL RELH 
LD HL,NBET 
INC CHL3 
LD H.(HL) 

LD B . R 

LD H,(NOMBRE) 
CP S 

CHLL 2 EXIT 
LD fl,+5 
LD (FLflG).H 
COMT LD HL,(TAMPON) 
LD fl , +61 ; 

CP (HL) 

JR NZ NUTT 
LD fl,(NBET) 

LD B, H 

BONUS CHLL HFSCO 
DJNZ BONUS 
LD HL.SORTIE 
INC (HL) 

LD H.(SORTIE) 
cp a 

OR Z JUMP 
LD HL, (4000 
LD BC,+9 
HDD HL,BC 
LD BC,0 
LD H,(SORTIE) 
HDD fl,H 
LD C,fl 
HDD HL,BC 
LD(HL),+S1 
JUMP LD fl,(SORTIE) 
CP a 

CHLL Z EFFHC 
JP ORDRE 

EFFHC LD HL,NCHOC 
LD(HL),O 
LD HL,SORTIE 
LD(HL),0 


LD HL, (4000 
INC HL 
LD B,+13 
BLANC LD (HL),0 
INC HL 
DJNZ BLANC 
RET 

NUTT LD BC, (RDETT3 
LD HL} (TAMPON) 
LD(ADETT),HL 
LD(HL),+180 
LD fl,+136 
LD(BC),fl 
LD R,(FLflG) 

CP 0 

JR Z QUEUE 
LD HL,(NBHNN3 
INC HL 

LD (NBHNN)/HL 
LD HL,(HDSTT) 

CODE DE X INC HL 

INC HL 

LD(HDSTT),HL 
LD HL,FLflG 
DEC(HL) 

JP LABEL 

QUEUE LD BC,(DSTOCK) 
LD fl,0 
LD(BC) ,fl 
LD HL,(NBHNN) 
HDD HL,HL 
LD B, H 
LD C,L 
LD HL,DSTOa 
LD DE,DSTOCK 
LDIR 

LABEL LABEL 

LD HL,(RDSTT) 
LD BC,(TAMPON) 
LD (HL),C 
INC HL 
LD (HL),B 
LD BC,(RETARD) 
TEMPO CALL RELA 
DEC BC 
LD A, B 
OR C 

JR NZ TEMPO 
JP CLAU 


C/5 

ÿAriana (ZX St 16 K) 

5 


Essayez de retrouver le fil d'Ariane 
pour vous sortir de ces labyrinthes très 
bien conçus de F. Hardy que vous 
pourrez ensuite modifier au gré de 
votre imagination. Toutes les 
explications sont dans le programme. 




1 REM ***■*-*#**■*■•*•**■**#***-**-*•*■* 
a REM ** ARIANA ** 

3 REM S-*****************-***-** 

4 REM ** FREDDY HARDY ** 

5 REM ************************ 

6 REM 35-6-1983 A ETAULIERS 

7 REM 
S REM 
3 REM 

10 REM 

11 REM 

1S REM LIGNE 110; 110 LET ALEA 


=3000+(INT(RND*NOMBR£ DE LABYRXN 
THES))*30 

13 REM 

14 REM 

15 REM 

16 REM 

30 PRINT TflB 13;"BRIANfl 


21 PRINT RT 3,0;"UOUS ETES UN 
EXPLORATEUR PERDU DANS UN LflBYR 
INTHE INEXTRIQUABLE" 
as PAUSE 200 
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23 PRINT 
24- PR INT "UOU 
PN QUE QUE 

25 PAUSE 200 
25 PAINT 
27 PRINT “POU 


UOUS NE UERREZ LE PL 
QUELQUES INSTANTS." 
00 


27 PRINT "POUR UOUS DIRIGER UE 
LP SORTIEMfiNIPULEZ:" 

28 PRINT 

29 PRINT "LA TOUCHE ""Q"": HAUT 


30 PRINT 


31 PRINT "LA TOUCHE 


'Lh TOUCHE ‘"'A"":BAS' 


v|T " LA TOUCHE ""P"":DROI 


33 PAUSE 850 

34- PRINT , , , , "ATTENTION AUX MI 
NES ""*• . 

35 PAUSE 200 

35 PRINT , , , "BONNE CHANCE. . . " 

37 PAUSE 4-00 

3S CLS 

39 PRINT "NIUEALI DE DIFFICULTE 

40 PRIAT "1)L""ORDINATEUR EST 
INDULGENT” 

41 PRINT "23NIUEAU MOYEN" 

42 PRINT "3JL""ORDINATEUR EST 
INTRAITABLE" ,,,,,,, "UOTRE CHOIX 

43 INPUT D 

44 CLS 

45 IF D<1 OR B >3 THEN GOTO 39 

47 LET ERREUR=0 

43 PRINT "UOUS ETES LE “"X""." 
.w/'LA SORTIE EST LE ""S"”.",,," 
LES MINES SONT LES 

49 PAUSE 500 

50 PRINT "ATTENTION.L""ECRAN U 

R DEUENIR GRIS DURANT QUELQUE 

3 SECONDES ..." 

60 PAUSE 300 

70 CLS 

30 FAST 

90 LET E1=PEEK 16398t256ïPEEK 
15399 

11© LET ALEA=8000+(INT CRND*23> 
*30 

115 GOSUB ALEA 
120 FOR F =0 TO 704 
125 IF PEEK (El+F)=0 AND RNDS10 
0<D THEN POKE (El+F),23 
130 NEXT F 
135 SLOW 
140 PAUSE 900 
200 FAST 
225 LET X =E1 
230 FOR F =0 TO 31 

235 IF PEEK CX+FJ=128 THEN POKE 
(X+FÎ,32 

235 IF PEEK CX+F)=0 THEN POKE < 
X+F3 ,100 

240 IF PEEK CX+F)=23 THEN POKE 
CX+F),73 
245 NEXT F 
250 LET X=X+33 

255 IF PEEK X<>12S THEN GOTO 26 
5 

260 GOTO 230 
265 SLOW 

270 LET X=E1+378 

260 IF ERREUR>=40—(D-1) *10 THEN 
GOTO 7000 

2S4 PRINT AT 0,12;ERREUR;" ERRE 
URS ■ " 

285 LET I$=INKEYS 


290 

IF 

1$="" 

THEN GOTO 285 

300 

IF 

I$ = "Q 

" THEN 

GOTO 

5000 

310 

IF 

I $ = " A 

" THEN 

GOTO 

5005 

320 

IF 

I$ = "0 

“ THEN 

GOTO 

6010 

330 

IF 

I$ = "P 

” THEN 

GOTO 

6015 

340 

GOTO 280 




000 

LET 

A = -3: 

3 




5001 GOTO 6050 

5005 LET A =33 

5006 GOTO 6050 
6010 LET A=-l 
5011 GOTO 6050 
5015 LET A=1 

6350 IF PEEK fX+A)=55 THEN GOTO 
7500 

S354 IF PEEK (X+A)<>100 THEN GOT 
O 6100 

6060 POKE X , 100 
6070 LET X=X+A 
5080 POKE X,61 
6090 GOTO 280 
6100 FOR F=1 TO 10 
5105 POKE X,0 
6106 POKE X,189 
5110 POKE X,61 
6115 NEXT F 

6120 LET ERREUR =ERREUR+1 

5125 IF PEEK (X+fl)=73 THEN GOTO 

6135 

6130 GOTO 280 

6135 LET ERREUR =ERREUR +4 

5140 GOTO 6060 

7000 REM *****#*•*#■***■******■**#■**• 
** PERDU ** 

S********************** 

7005 CLS 

7010 GOSUB ALEA 

7015 POKE E1+378,0 


7020 FOR F=1 TO 10 

7030 PRINT AT 0,11;"TROP TARD" 

7040 POKE X,189 

7050 FOR G=1 TO 15 

7060 N EXT G 

7070 "1®*»" 

7000 POKE X,SI 

7085 FOR G = 1 TO 15 

7055 NEXT G 

7088 NEXT F 

7090 CLS 

7100 PRINT "DESIREZ UOUS RECOMME 

NCER 7" 

7110 INPUT RS 

7120 IF Rffl="OUI" THEN GOTO 30 
7130 PRINT , , "AU REUOÏR..." 

7140 PAUSE 300 
7150 LIST 

7500 REM **■»*##*#* if-#»»## # 

** GAGNE 

S-#***####**##**######** 
7505 FOR F-nl TO 10 

7510 PRINT AT 11,B;"UOUS RUEZ OA 
GNE,BRHUO" 

7520 POKE El+1,184 
7530 FOR G = 1 TO 15 

7540 NEXT G _ 

755B print at ii.5: " BBB@BBBB3Baa 


7560 POKE El+1,56 
7570 FOR G=1 TO 15 
7580 NEXT G 
7585 NEXT F 

7590 CLS 

7591 PRINT "DESIREZ UOUS RECOMME 
NCER 7" 

7592 INPUT R$ 

7593 IF R$="GUI" THEN GOTO SB 

7594 PRINT ,,"AU REUOIR..." 

7595 PAUSE 300 

7596 LIST 

3300 REM *********************** 
S* LABYRINTHE NO : 1 ** 


5-001 PRINT 
8002 PRINT 

S S EB il 

3003 PRINT 

SSE 

3004 PRINT 
wm fi KâMH 

S005 PRINT 

19 B B BB 

6006 PRINT 

S B B & 

8307 PRINT 

■■zasm b B 

8008 P RINT 
38 SS 8 BMBW B B 
8309 PRINT 

3310 PRI NT 

sgsaa bbw8 m 

8011 PRINT 

■ 

8012 PR INT 

B B BB 

8013 PRINT 

SB B 

801 4 PRINT 

lil'BBBBBS 

8015 PRINT 

m 

S 0-1 6 PR INT 
30'17 PR INT 

aiSÉÉSrtllBaÉia S 

SOIS PRINT 


sa1 9 PRINT 
taiifeataia i 
8020 PRINT 



8021 PRINT 
asummim 

S3SS PRINT 


3023 POKE 16 442,4 
8024 PRINT "I -■ " 


3325 RETURN 

8030 REM ■****■*■*•*•*■*-***■**■**■*** 
** LABYRINTHE NO : 2 

30*_i pr T ^fiBSflflBB^BRRHB^Î 


'503 2 PRINT 
if ® 
3033 PRINT 


***• + 
** 

+ « + * 


8034 PRINT 

8035 PRINT 
WSÊÊMBÊBBB 
5035 PR INT 

6037 PRINT 

6 038 PRINT 

—fel 

8039 PRINT 
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Président 

(ZX8116K) 


Un jeu de politique-fiction complet : 
le destin du pays est entre vos mains ; 
jouez-bien ! tant de personnes 
comptent sur vous pour de pas mourir 
de misère (J.P. Bernardi) 




«REM B.Ü.P. 1933 
10 CLS 
15 CLERR 

20 REM ***** PRESIDENT ***** 

25 SLOU _ 

30 PRIhiT 


35 P R INT 

4-0 PRINT TSE 4-; "**# JEU DU PRE 
SIDENT ***" 

4-5 PRINT 

50 PRINT "(DJ BERNRRDI U.P. ( 
1983) ” 

55 PRINT 

60 PRINT m m mm 


65 PRINT 

70 PRINT “$$$$-$$$-$$ £££$$$$$$$$ 
75 PRINT 

S® PRINT “TOUTE INT ERPRETHTI O N 
POLITIQUE DE CE JEU NE PEUT 

ETRE QUE LE RE5ULTRT DE L""ELUCU 
BRRTION D" “UN ESPRIT TORDU' 1 , . " C 
EDI EST SEULEMENT LE FRUIT DE 
L""IMRGINRTION.“ 

85 PRINT 

30 PRINT "$$$$$$$$$$$$£$$$$$$$ 
$$$$$$ «ST* $ SP¬ 
SS PRINT 

100 GOSUB URL "1655" 

105 PRINT “UOUS UENEZ D"“ETRE E 
LU PRESIDENT DE L““ETRT DE CENTR 
-fi-FRIC."," EN FRIT LES ELECTIO 
NS ETAIENT TRUQUEES MR15 LA N""E 
ST PRS NOTRE PROBLEME.“ 

110 PRINT 

115 PRINT "UOICI QUELQUES DONNE 
ES POUR UOUS RIDER R FRIRE AURN 
CER CE PAYS ACTUELLEMENT RU BORD 
DU GOUFFRE." 

130 PRINT 

135 PRINT "* CHAQUE HRBXTRNT DE 
PENSE Î80FR PRR RN“ 

130 PRINT “* UQS RECETTES U 

IENNENT DES TAXES INDUSTRIELLES, 
DU TOURISME, DE LR•UENTE DES CER 
ERLES ET DE LR TRANSFORMAT ION DE 
UOS CHRHPS EN ZONES INDUSTRIELL 
, 11 

135 PRINT “* CHAQUE RNNEE UOUS 


REPARTISSEZ LE BUDGET DU PAYS EN 
TRE LR LUTTE ONTI-POLLUTION,LES 
HABITANTS, L""EDUCATION ET L" 

"AGRICULTURE." 

140 GOSUB URL "1655" 

145 PRINT " * L ""EDUCATION C 

ORRECTE D""UN HRBITRNT COUTE 10F 
R PRR RN." 

150 PRINT 

155 LET N5~7 

160 PRINT ~* UNE LUTTE RN 

TI-PQLUTIQt4 EFFICACE COUTE 3,44F 
R PRR UNITE DE POLLUTION." 

165 PRINT 

170 PRINT "UOUS NE POUUEZ ENTRE 
R 0FR. SUR UN BUDGET CECI 

UOUS SERRIT REFUSE." 

175 PRINT 

180 PRINT "SANS UOULOIR UOUS DE 
COURRGER,JE TIENS fl UOUS RUERTIR 

QU”"RUCUN DES PRESIDENT 

S UOUS RYRNT PRECEDE N""A TERMIN 
E SON MANDAT." 

1S5 PRINT 

190 GOSUB URL "1655" 

195 LET N4=7 

300 PRINT 

305 PRINT " BONNE CHANCE POUR U 


OS ■■ ; 

N4; " 

ANNEES" 

310 

LET 

N1=N4-1 

215 

SLOU 

330 

RRND 

335 

LET 

M=95E3+INT (RND*6E3) 

330 

LET 

P=INT (490+RND*30J 

335 

LET 

R0=0 

340 

LET 

SU=0 

345 

LET 

K=0 

350 

LET 

L=URL "SES" 

255 

LET 

U=Q 

360 

LET 

X3=0 

365 

LET 

E0=0 

370 

LET 

X1=0 

375 

LET 

E1=0 

380 

LET 

39=0 

ass 

LET 

50 = 0 

390 

LET 

H5=© 

395 

LET 

51=0 

300 

LET 

D1 = INT (P.'-SJ 

305 

GOTO URL "315" 

310 

PRINT "ENCORE ";N5;" ANS 

TIRER." 
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31S PRINT 

320 LET L1=INT !RNDï5+10) 

325 LET L0 = INT (RND*10+95) 

330 LET R=3 
335 PRINT 

34-0 PR INT "UOUS RUEZ " 

34-5 PRINT M; “ FR DE BUDGET." 

350 PRINT Pj" HRBITRNTS." 

355 IF NOT U THEN GOTO URL “365 


360 PRINT U;" TRRUfiILLEURS IMMI 
GRES." 

365 PRINT L; " HECTARES." 

370 IF NOT SU THEN GOTO URL ”44 
0 ” 

375 PRINT SU;" FR PLANQUES EN S 
LUSSE. " 

330 PRINT 

385 PRINT " DESIREZ UOUS R 

RPRTRIER DES CAPITAUX DE SUISSE 
?(Q/NÏ" 

390 INPUT Oÿ 
395 CLS 

4-00 IF 0$(1J<>"0" THEN GOTO URL 
” 4-4-0" 

4-05 PRINT "MONTANT DU TRANSFERT 
4-10 INPUT SUT 

4-15 IF SUT > SU THEN GOTO URL "4-1 
0 " 

4-20 LET SU=SU —SUT 
4-25 LET M=M+SUT 
4-30 CLS 

4-35 GOSUB URL "1380" 

4-4-0: PRINT 

4-4-5 PRINT "CETTE ANNEE LES INDU 
STRIELS UOUS OFFRENT ", ,L0; " FR 
PRR HECTARES"," ET LES PLRNTRTIO 
NS COUTENT ",L1;" FR PRR HECTRRE 


450 IF NOT SI THEN GOTO URL "46 
0 " 

455 PRINT "LE NIUERU DE POLLUTI 
ON MESURE ET DE ";S1;“ UNITES MK 
SA . “ 

460 PRINT 

465 PRINT " COMBIEN D""HECTARES 
UOULEZ UOUS UENDRE AUX INDUSTRI 
ELS ?" 

470 INPUT L2 

475 IF L2<=0 THEN GOTO UAL "470 


L-1E3;" HECTARES." 

675 GOTO UAL "595" 

680 LET M=INT (M-M4Ï 

685 IF NOT M THEN GOTO UAL ”755 


690 GOSUB UAL "1380“ 

“COMBIEN UOULEZ UOUS 
DEPENSER POUR L""EDUCATION ' 


700 INPUT M2 

. 705 IF M2<=0 OR M2>M THEN GOSUB 
UAL "1805" 

710 IF M2<=0 OR M2>M THEN GOTO 
UAL "690" 

715 LET M=INT tM—M2) 

720 IF NOT M THEN GOTO UAL "755 


725 GOSUB UAL ”1380" 

730 PRINT "QUEL BUDGET ACCORDEZ 
UOUS A LA LUTTE ANTI-POLLUTIpN 

735 INPUT M3 

740 IF M3<=0 OR M3 >M THEN GOSUB 
UAL "1305" 

745 IF M3<=0 OR M3>M THEN GOTO 
UAL "725“ 

750 LET M=INT (M-M3) 

755 CLS 
760 LET D0=0 
765 LET E2=M2/P 
770 LET D2 = INT (P-M1/1E25 
,775 IF D2<=0 THEN GOTO UAL "800 

730 LET D0=D2 

785 IF D2 = l THEN PRINT D2; " HAB 
ITRNT EST MORT DE FAIM" 

790 IF D2=l THEN GOTO UAL "800" 
ORTS DEMAIN"' 1 HABITANTS SONT M 
~S00 p LET D3=INT (SlXlES*(.1+.4*R 
805 IF D3<=0 THEN GOTO UAL "825 

810 IF D3=I THEN PRINT D3; " HAB 
ITANT EST MORT PAR EXCES DE POLL 
UTION” 

815 IF D3 >1 THEN PRINT D3; " HAB 
ITANTS SONT MORTS PAR EXCES DE P 
OLLUTION." 

320 LET D0=D0+D3 

825 IF D0<=0 THEN GOTO UAL "925 


480 IF L2CL-1E3 THEN GOTO UAL " 
520“ 

485 CLS 

490 PRINT "ALLONS.. UOUS N""AUEZ 
QUE " ; L-1E3; " HECTARES DE TERRE 
DISPONIBLES." 

495 IF X1O0 THEN GOTO UAL "335 


500 PRINT "LES INDUSTRIELS NE S 
ONT PAS DISPOSES A ACHETER D 

E LH FORET DU FAIT DES COUTS 
D“"ABATTAGE." 

‘ 1805' 


(M+L2ïL0) 

(L —L2) 

(44*(2E3-LJ ) 


505 GOSUB UAL 
510 LET Xl=l 
515 GOTO UAL 
520 LET M = INT 
525 LET L=INT 
530 LET X 9 = INT 
535 LET M2=0 
540 LET M3=0 
545 LET M4=0 
550 LET M5=0 
555 GOSUB UAL "1380" 

560 PRINT "COMBIEN DE FRANCS UO 
ULEZ UOUS DISTRIBUER A UOS 

HABITANTS ?" 

565 INPUT Ml 

570 IF Ml>M THEN GOSUB UAL "180 
5" 


575 IF Ml<0 OR Ml>M THEN GOTO U 
AL "555“ 

530 LET M = INT (M-MU 

585 IF NOT M THEN GOTO UAL "755 


590 GOSUB UAL "1380" 

595 PRINT "COMBIEN D""HECTARES 
UOULEZ UOUS PLANTER ?" 

600 INPUT L3 

60S IF L3<=0 THEN GOTO UAL "60© 


610 IF L3;=P*2 THEN GOTO UAL "f 
30“ 

615 GOSUB UAL "1805" 

620 PRINT "CHAQUE HABITANT NE F 
EUT PLANTER QUE 2 HECTARES." 

625 GOTO UAL "660" 

630 IF L3<=L-1E3 THEN GOTO UAL 
64-S " 

635 PRINT "UOUS N"“RUEZ QUE ";l 
-lE ià ",HECTARES DE TERRES CULTH, 

640 GOTO URL "660" 

645 LET M4=INT <L3*Li> 

650 IF M4<=M THEN GOTO UAL "68C 


655 GOSUB UAL "1380" 

660 PRINT "UOTRE BUDGET UOUS LI 
MITE A INT (M/Ll);" HECTARES D 
E PLANTATIONS." 

665 PRINT "LA POPULATION PEUT T 
RRURILLER “;P*2," HECTARES ET LA 

CI IDFOPF*' 

670 PRINT "DISPONIBLE EST DE ** : 


830 LET F=D0*9 

835 PRINT "UOUS ETES OBLIGER DE 
DEPENSER F; " FR" 

340 IF D0 = 1 THEN PRINT ; " POUR 
L""ENTERRER" 

845 IF D0 >1 THEN PRINT ; “ POUR 
LES ENTERRER" 

850 GOSUB UAL "1655" 

855 LET R=F 
860 LET R0=R0+R 

865 IF R0> =54 THEN GOSUB UAL "1 
845" 

870 IF R0 > =1E2 THEN GOSUB UAL " 
1860" 

875 IF R0>=135 THEN GOSUB UAL " 
1870” 

880 LET M=INT (M-F) 

885 IF M>=0 THEN GOTO URL "925" 
890 PRINT "UOTRE FAIBLE BUDGET 
UOUS OBLIGE A UENDRE DU TERRAIN. 

895 LET T0 = — INT (M/L0) +1 
900 LET L=L-T0 

905 IF L>=1E3 THEN GOTO UAL "92 
0 “ 

910 PRINT "UOUS N""RUEZ PAS ASS 
EZ DE TERRAIN" 

915 GOTO UAL "1400" 

920 LET M=M+(T©*L0J 

925 IF D0 >2E2 THEN GOTO UAL "14 
10 " 

930 LET P=P-D0 
935 LET D1=D1-D0 

940 IF DI< =0 THEN GOSUB UAL "14 
65" 

945 IF D2<=2 THEN GOTO UAL "955 

950 IF M > 5E2 THEN GOSUB UAL "15 
15" 

„955 IF L2<=5 THEN GOTO UAL "1E3 

9S0 LET T0=INT ((L2+.2*L2*RND )s 
5 J 

965 IF NOT U THEN GOTO UAL "990 

970 LET T0=INT (T0+.1*U) 

975 IF T0 >1 THEN GOTO UAL "990" 
980 PRINT T0,” TRAUAILLEUR IMMI 
GRE EST ARRIUE." 

985 GOTO UAL "995" 

990 PRINT T0;" TRAUAILLEURS IMM 
IGRES SONT ARRIVES.’,' 

995 LET U=U+T0 

1000 LET T0=INT (((5E2-PÎ/10-D3/ 
3-D2/5Ï *.75S-(l+FÎNDi ) 

1005 IF NOT T0 THEN GOTO UAL "10 
SS" 

1010 IF T0=1 THEN PRINT ABS T0;" 
HABITANT" 

1015 IF S1>=5E2 OR M2<=P*10 THEN 
GOTO UAL "1050" 
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un wswÿÿ 
Q£ s® S 
lu -mzm 

> lii 


1020 IF T0 = 1 THEN PRINT "EST OEN 
U S""INSTALLER" 

1030 IF 51>=5E2 OR M2<=P*10 THEN 
GOTO URL “1050" 

1035 PRINT "SONT UENUS S""INSTRL 
LER . " 

104-0 LET P=P+T0 
104-S GOTO URL "1060" 

1046 PRINT 

1050 IF T0 =1 THEN PRINT T0;" HRB 
ITRNT R QUITTE LE PAYS. “ 

1052 PRINT 

1055 IF T0H THE N PRINT TB; “ HRB 
ITRNTS ONT QUITTES LE PRYS." 

1060 LET P=P-T0 

1065 IF PiU THEN GOTO URL "1490” 
1070 LET T0=0 

1075 IF L=2E3 THEN GOTO URL "110 

S" 

1080 LET T0=INT ISl.'lESsLS) 

1085 IF T0< =0-8 THEN GOTO URL "10 
95“' 

1090 LET T0=L3 

1095 IF NOT T0 THEN GOTO URL "11 
05" 

1100 PRINT "SUR UOS L3;” HECTR 
RES PLANTES." 

1105 PRINT "UOUS RUEZ RECOLTE ”J 
L3-TB;" HECTARES." 

1110 IF NOT T0 THEN GOTO URL "11 
25" 

1115 PRINT "(R CRU5E DE L“"RUGHE 
NTRTION DE LR POLLUTION)“ 

1120 LET X2=X2+1 

1125 LET T1=INT ((39+RND*20)*(1+ 
. 25* (E0 +E1 ) -/20) ) 

1130 PRINT "CEUX CI UOUS RAPPORT 
ENT ".,INT (Tli(L3-T0) ) ; " FR." 
1135 LET M=H+INT (T1NL3-TB) ) 
1140 LET M5=INT (TB-Tl) 

1145 LET E0=E1 

1150 IF E2<=10 THEN GOTO URL ”11 
60" 

1155 LET E2=10 
1160 LET E1=E2 
1165 LET T0=2E3-L 

1170 IF T0<2 THEN GOTO URL "1305 

1175 IF T0<=26 THEN GOTO URL “Il 
85" 

1180 LET T0=26 

1185 LET T0 = INT (T0*SE2ï ( .52-f .5* 
RND) ) 

1190 LET T1=S1/1E5 

1195 IF Tl< =1 THEN GOTO URL "120 
5" 

1200 LET T1=1 

1205 LET Tl=TlïT0 

1210 LET M=M+INT (T0-T1) 

1215 PRINT “LE TOURISME "J 

1220 IF INT ITB-Ti) < =M5 THEN GOT 

O URL "1230" 

1225 IF S1<=S9 THEN GOTO URL "12 
90 “ 

1230 PRINT " . EN NETTE DIHINUTI 

ON CRR "j 

1235 LET T2=INT IRND*5+1) 

1240 GOTO URL "1235+T2ïlB“ 

1245 PRINT "DE NOMBREUX POISSONS 
SONT MORTS ,", 

1250 GOTO URL "1290“ 

1255 PRINT "LES PETITS OISEAUX C 
MONTENT DE MOINS EN MOINS , " , 

1260 GOTO URL "1290" 

1265 PRINT "L“"ERU DES BRINS DES 
CURISTES EST POLUEE ,“, 

1270 GOTO URL "1290“ 

1275 PRINT "LES MAUVAISES ODEURS 
DECOURAGENT LES ESTIURNTS , 

1280 GOTO URL "1290" 

1285 PRINT "LES HOTELS SONT NOIR 
CIS PRR LES FUMEES DES USINES ," 

1290 PRINT "UOUS R RAPPORTE ", I 
NT CTO-Tl) ; “ FR." 

1295 PRINT 
1300 LET 59=51 

1305 LET 52=(2E3-L)ï(2ES-L)-M3/. 
44 

1310 IF NOT X9 THEN GOTO URL “13 
25" 

1315 PRINT " LES TAXES INDUST 

RIELLES UOUS RAPPORTENT ",,,X9;" 
FR * " 

1320 LET H=M+X9 

1325 IF S2>=0 THEN GOTO URL “135 
0 " 

1330 LET S1=INT (S1+S2X2) 

1335 IF Slî=S0 THEN GOTO URL ”13 

45" 

1340 LET 51=50 
1345 GOTO URL "1360“ 

1350 LET S1=INT CS1+S2) 

1355 LET S0=INT (50+52^10) 

1360 LET N5=N5-i 
1365 GOSUB URL "1655" 

1370 IF NOT" NE THEN- GOTO URL "15 
45" 

1375 GOTO URL "310" 

1380 CLS 

1385 PRINT "IL UOUS RESTE "i M; " 
FR. " 

1390 PRINT 
1395 RETURN 


1400 PRINT "UOUS RUEZ ETE RENUER 
SE ET JETE DANS LE PLUS HUMIDE O 

ES CRCHOTS--" 

1405 GOTO URL “1730" 

1410 PRINT 

1415 PRINT D04" PERSONNES SONT H 
0RTES CETTE RNNEE R CAUSE DE UOS 
GRAVES NEGLIGENCES." 

1420 PRINT "NON SEULEMENT UOUS R 
UEZ ETE RENVERSE MRIS DE PLU 

5,"; 

1429 LET T0=INT CRND*3)*5 

1430 GOTO URL "1425+20*T0" 

1435 PRINT “ON UOUS R ECORCHE UI 

F " 

1440 GOTO URL “1720“ 

1445 PRINT "UOUS HUEZ DROIT RU G 
OUDRON ET RUX PLUMES....“ 

1450 GOTO URL “1730" 

1455 PRINT "UOUS ETES L""ENNEMI 

PUBLIQUE NUMERO 1 .” 

1460 GOTO URL "1730" 

1465 PRINT 

1470 PRINT "PLUS D“”UN TIERS DE 
LR POPULATION EST MORTE DE MISER 
E DEPUIS VOTRE ELECTION." 

1475 PRINT 

1480 PRINT "LES MALHEUREUX SURUI 
UANTS NE PENSENT PLUS QU""R U 

OUS ATTRAPER POUR VOUS ETRIPER." 
1485 RETURN 
1490 PRINT 

1495 PRINT " LES TRAVAILLEURS IM 
MIGRES SONT EN MAJORITE." 

1500 PRINT "ILS SE SONT REVOLTES 
ET ONT PRIS LE POUVOIR." 

1505 GOSUB URL "1655" 

1510 GOTO URL "1400" 

1515 PRINT 

1520 PRINT "UOUS RUEZ ENCORE RSS 
EZ D""ARGENT EN CRISSE ET POURTfi 
NT PLUSIEURS PERSONNES SONT MORT 
ES DE MISERE." 

1525 PRINT 

1530 PRINT “NE UOUS ETONNEZ PRS 
SI LR POPULATION SE SOULEVE 

,PREND D""flSSRUT UOTRE PRLRIS 
ET UOUS ACCULE AU SUICIDE..." 

1535 GOSUB UAL "1655" 

1540 RETURN 
1545 PRINT 

1550 PRINT "FELICITATION " 

1555 PRINT 

1560 PRINT "VOUS RUEZ CQRRECTEME 
MT REMPLI UOTRE MANDAT DE ";N4;“ 
ANNEES." 

1565 PRINT 

1570 PRINT “ DESIREZ UOUS TRR 

NSFERER DES CAPITAUX EN SUISSE ? 
CO/N) “ 

1575 INPUT Y $ 

1580 CLS 

1585 IF Y$C1)<>“0" THEN GOTO UAL 
"1625" 

1590 GOSUB UAL "1380" 

1595 PRINT 

1600 PRINT "MONTANT DU TRANSFERT 

-ï" 

1605 INPUT SUT 

1610 IF SUT > M THEN GOTO UAL "160 

1615 LET SU =SU+SUT 
1620 LET M=M-SUT 
16S5 CLS 

1630 PRINT " DESIREZ UOUS UOUS R 
EPRESENTER RUX PROCHAINES 

ELECTIONS?" 

1635 INPUT YS 
1640 LET NS=N4 

1645 IF YSC1)0"0" THEN GOTO UAL 
"1675" 

1650 GOTO UAL "275" 

1655 PRINT TAB 10;"C PRESSEZ NEW 
-LINE)" 

1660 INPUT Y* 

1665 CLS 
1670 RETURN 

1675 CLS _ 

1680 IF Pï6?>M THEN GOTO UAL "17 
05" 

1685 PRINT "UOUS COULEZ DES JOUR 
S PAISIBLES AUX BAHAMAS "j 
1690 IF NOT SU THEN STOP 
1695 PRINT "RUEC UOS ";SU;“ FR." 
1700 GOTO URL "1755” 

1705 PRINT "UOTRE SUCCESSEUR N"" 
R PRS RPPRECIE L"“ETAT DES FINRN 
CES " ' 

1710 PRINT "IL UO US R RRRETE RUA 
NT QUE UOUS NE QUITTIEZ LE PRYS. 

1715 PRINT "UOUS RUEZ ETE TQRTUR 
E ET RUEZ RUOUE LE NUMERO DE UOT 
RE COMPTE EN SUISSE." _____ 

1720 PRINT "UOTRE CRDRURE R FRIT 
LR JOIE DES CROCODILES..." 

1725 PRINT 

1730 PRINT "MORALITE : LE CRIME 
NE PRIE PLUS." 

1735 PRINT 
1740 PRINT 

1745" PRINT “ IL EST DE PLUS EN 
PLUS POINTU D"“EXPLOITER SES SEM 
BLRBLES.” 

1750 PRINT 
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1755 GOSUB Ufil_ “1655" 

1760 PRXNT TRB 8; "FIN DE JEU" 
1765 PRINT "UOULEZ UOUS REJOUER? 
(O/N)" 

1770 INPUT W$ 

1775 IF CODE US=52 THEN RUN 
1780 CLS 

1785 PRINT RT 10,12.; "RU REUOIR" 
1730 PRUSE 90 
1795 CLS 
1800 NEU 

1305 FOR 1=1 TO 10 

1810 PRINT RT 14. j, 4-; "UERIFIEZ UOS 
CHIFFRES" 

1815 PRINT RT 14. , 4-; 


1820 PRINT 
1825 NEXT I 

1830 PRINT "UOS MINISTRES j, ... .ET 
UOUS MEME DEVRIEZ RPPRENDRE R 

LIRE ET R COMPTER." 

1835 GOSUB URL "1655" 

.184-0 RETURN 

184.5 PRINT "UN FOYER DE REVOLTE 
a ECLATE DRNS LE NORD DU PR 

Y S . " 

1850 LET K=K + 1 
1355 RETURN 

1860 IF K=1 THEN PRINT "Lfi REUOL 
TE DEBUTE RUSSI DRNS LE SUD , U 
OTRE SITUATION DEUIENT CRITIGi 

UE." 

1365 RETURN 

1870 IF K=2 THEN PRINT "LES MROU 
IS SE DEUELLOPENT DE JOUR EN 

JOUR,RIDES PRR DES PRYS VOISINS. 


1875 IF K=1 THEN PRINT " Lfi 

SITURTION UOUS FORCE R INSTALLE 
R UN MINISTERE DU MRINTIEN 

DE L""ORDRE." 

1880 IF K >1 THEN PRINT " LR 

SITURTION UOUS OBLIGE R RENFORC 
ER LE SERUICE DU MAINTIEN DE L"" 
ORDRE." 

1885 GOSUB URL "1655” 

1890 PRINT "QUEL BUDGET LUI DONN 
EZ UOUS?" 

1895 PRINT 

1900 GOSUB URL "1335" 


1905 IF M<5E3 THEN GOSUB URL “19 
4.0" 

1910 INPUT M5 

1915 IF H5<=0 OR M5>M THEN GOSUB 
URL "1305" 

1920 IF M5<=0 OR M5>M THEN GOTO 
URL "1910" 

1925 LET M=INT (M-M5J 
1930 CLS 
1935 RETURN 
194.0 GOSUB URL "1385“ 

194-5 PRINT L; " HECTARES" 

1950 PRINT "VOS TROP FAIBLES FIN 
RNCES UOUS OBLIGENT R UENDRE D 
U TERRAIN»" 

1955 PRINT "UNE MULTINATIONALE U 
OUDRRIT S" "INSTALLER, ELLE PR. 

END L""HECTRRER "; L0-6;" FR. CO 

MBIEN LUI EN CEDEZ UOUS ?" 

1960 INPUT L5 

1965 IF L5<99 THEN GOTO URL "198 
5 " 

1970 LET L=L-L5 

1975 LET M=INT M+(L5ï(L0-8Ï) 

1980 RETURN 

1985 PRINT "DESOLE ELLE NE PEUT 
S“ " INSTALLER URLRBLEMENT SUR 

MOINS DE 100 HECTARES." 

1990 GOTO 1960 
1995 STOP 
9000 CLERR 

9010 LET M=PEEK 16389 
9020 POKE 16389,76 
9030 CLS 

904.0 REM SRUE "PRESIDENil" 

904-1 RRND USR 304-60 

904-2 REM S94-PRESIDENT 

9050 IF PEEK 16389 076 THEN RUN 

9060 POKE 16389,M 

9070 STOP 

939© CLS 

3391 PRINT PEEK 16388+256*PEEK 1 
6389-PEEK 164-13; " MEU" 

9992 PRINT PEEK 164-12+256*PEEK 1 
64-13 

9993 PRINT PEEK 16396+256*PEEK 1 
6397-16509;" LONG.PROG." 

9999 PRINT PEEK 16388 +256iPEEK 1 
6389-PEEK 164.00 —256iPEEK 164-01; " 

PILE" 


Spiders (IX 





Vous vous êtes aventurés dans une 



grotte et vous voilà nez-à-nez avec des 

centaines de mygales assoiffées de sang (!). Dirigez-vous dans la grotte sans 

toucher les parois avec les touches 1 et 2 et tirez avec la touche 0 : 

pour tuer la mygale géante vous devez la blesser 6 fois ; courage. (Eric Buzin) 



0SGO5UB 1500 

1 LET^T =0_ ________ 

3 IF INKEY$="" THEN GOTO 3 
4- LET S=0 

5 LET Y = 16 

6 LET R=ai 

? B= -2+INl CRND*7) 

10 REM JEU 

12 LET U=XNT (RND*a) 

14- SCROLL 

20 PRINT RT 21 . IB-iU; "SB" 

30 PRINT AT Si;S0+U; "1" 

50 PRINT RT 9,Y;" ";TRB Y; 


60 IF Y = 10 OR Y = 13 THEN GOTO 6 

80 

75 IF INKEY$="0" THEN GOTO 25® 
80 LET Y=Y-(INKEYî="l")+1INKEY 
$="2"J 

90 PRINT RT R, B; " i" 

100 IF fl=10 RND B=Y THEN GOTO S 
00 

120 LET fl=R-l 

130 IF R=8 THEN GOTO 80© 

14-0 GOTO 10 

200 PRINT RT 10,Y +1; “Ü" 

205 PRINT RT 21,10;"*GAME OUER* 


210 PRINT RT 0,10;"SCORE:";S 
215 IF INKEY$="” THEN GOTO 215 
220 RUN 

250 FOR N=ll TO 21 
260 PRINT RT N.Y+1;"," 

270 IF N=R RND Y+1=B THEN GOTO 
300 


PRINT RT N.Y+1: “ “ 

NEXT N 
GOTO 10 

PRINT RT R, B, "H" 

PRINT RT A, B; "l|“ 

PRINT RT R, B; "J*" 

PRINT RT A, B':" “ 

LET T=T + 1 

IF T = 15 THEN GOTO 4.00 
LET S=5 +INT (RND + 100) 
PRINT RT 21,0;"PTS:";S 
GOTO 6 
LET Z=0 

LET S=5+1000 _ 

LET Z=Ztl™ 

SCROLL 

PRINT RT 10,Y;"U" 

IF Z=21 THEN GOTO 4-80 
PRINT RT 10,Y," " 

GOTO 4-30 
PRINT RT 10,Y;" 
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DIVERS 



480 LET F>X = 18 
490 LET BY=14 

500 PRINT fiT RX,BY; BY- 

1; " " ; TfiB BY-li , 'aÆ";TflB BY- 

"’èlO PRINT RT 3/Y-l.;" " ; TRB Y-l 

" U " 

530 LET RX=RX-1 

540 LET BY=14+INT (RND*2) 

551 IF RX=5 THEN GOTO 800 
555 IF INKEY$ = “0 - ' THEN GOTO 600 
560 LET Y =Y—(INKEY $ = "1") + <INKEY 
®="S") 

570 IF RX=6 THEN GOTO 200 

580 GOTO 50G 

600 FOR N=5 TO 20 

610 PRINT RT N,Y;" “ ; TRB Y;“." 

620 IF N=RX RND (Y =BY OR Y=BY+i 
OR Y =BY +2 OR B = BY+3) THEN LET Z 
= Z + 1 

630 IF Z =26 THEN LET S=S*2 
640 IF Z=26 THEN GOTO 1000 
650 IF N=RX RND Y =BY THEN GOTO 
700 

670 NEXT N 

700 PRINT RT 10 j S;Z—20 
710 GOTO 500 
300 LET U=U-1 
802 LET RX =21 
805 IF U=0 THEN GOTO 200 
310 PRINT "RTTENTION.UQUS N RUE 
Z PLUS QUE U; “ UIES..." 

820 PRINT "L.RRRIGNEE UOUS R MO 
RDU: —1 UIE. RPPUYEZ SUR ZERO POU 
R CONTINUER■“ 

330 IF INKEY$O“0'' THEN GOTO 83 

0 

835 FRST 

840 CLS 

841 SLOU 

845 LET Y=15 

846 LET R=21 

850 GOTO 10 _ 

1000 PRINT RT 1,8; "HHaiH 
“'MTfiB 8; “UNE RUTRE ?“;TRB 10; “ 
SCORE • ’* * S 

1010 PRINT RT LS; "UICTOIRE TOT R 
LE" 


1020 IF INKEY $ = "O" THEN GOTO 110 
0 

1040 GOTO 1000 
1050 LET 0=21 
1060 LET 8=5+5000 
1100 FRST 
1105 CLS 
1110 LET R =21 
1150 LET U=U+1 
1160 SLOU 
1170 LET T=0 
1200 GOTO 10 

1500 PRINT RT 9, 10; FeiFm l”** #*« 

1600 PRINT TRB 10; “VP IUIP" IV." 
1700 PRINT TRB 10; “ JI IvLll" 
PRINT TRB 10 
PRINT RT 8,14;"*" 

PRINT RT 14,10;"H BUZIN.198 


1800 

1850 

1900 

3" 

4000 

4050 

4060 

4100 

ü- 


IF INKEY$="" 
CLS 

PRINT " 

PRINT 


THEN GOTO 4000 


_ QIC! DONC UN 

■JEU TOUT NQLIUERU. __ 

" FS PROMENEURS 
SONT RUENTURESDRNS UNE GROTT 
E PRR CURIOSITE ETPflR MEGRRDE,SO 
NT TOMBES NEZ R NEZ DEURNT DES 
^CENTRINES^DE 

l OT^NPQURflRRI^ “l! l ER T lu REpIrE 
DE L.RRRIGNEE MERE 


BONNE CHRSS 
THEN GOTO 4350 


4200 PRINT 
4300 PRINT 
E" 

4350 IF INKEY $ = 

4400 CLS 
4450 LET U=3 
4700 RETURN 

5000 SRUE "SPIDEBT _ 

5001 PRINT "BIEN PRIS : REftWaHd " 

5002 PRUSE 4E4 

5003 CLS 

5004 RUN 


Roulette (Spectrum) 

Jamais le ZX Spectrum ne nous aura paru aussi inexorable que dans ce 
programme de roulette russe dû à L. Delreux. Déprimés s'abstenir ! 



4 CLS 

5 POKE 23609,50 
8 GO TÜ 100 

10 PRINT TRB 6; INUERSE 1;"RQU 
LETTE RUSSE EN L"RN 3000" 

17 PLÛT 90,24: DRRU -35,0: DRR 
U) -1,1; DRRU -1,1: DRRU 0,60 

20 DRAW -1,1: DRRU -1,1: DRRU 
-30,0 

22 DRRU -1,1: DRRU -1,1: DRRU 
0,30 

25 DRRU 1,1: DRRU 1,1: DRRU 19 

0,0 

27 DRRU 0,4: CIRCLE 211,123,2 

28 DRRU -4,-5: DRRU 15,0: DRRU 
1,-1:. DRRU 1,-1: DRRU 1,-1: DRR 

30 CIRCLE 229,104,12 

32 PLOT 230,91: DRRU -3,-3; DR 
RU -1,-1: DRRU -1,-1: DRRU -130, 
0 

34 DRRU -1,-1: DRRU -1,-1: DRR 
U 0,-58: DRRU -1,-1: DRRU -1,-1 

36 PLOT 140,86: DRRU 0,-30: DR 
RU -1,-1: DRRU -1,-1: DRRU -45,0 

37 PLOT 110,86: DRRU 0,-25 

33 GO TO 600 

100 PRINT TRB 5; INUERSE 1; FLA 
SH 1; ” ** U E U MORTEL **" 

: PAUSE 100: FLASH 0 
110 PRINT RT 5,3;"DANS UN FUTUR 

TRES PROCHE ." 

112 FOR A=1 TO SS 


116 PRINT RT 8,0;" m 

117 PRINT RT S, 0; "************* 
*******************" 

118 PRINT RT 10,5;"UN NOUUEAU U 
EU CONC0UERRR"," LE MARCHE INTER 
NATIONAL” 

119 PRINT RT 13,0;" 


120 PRINT RT 13,0;"**#********* 
********************" 

123 PRINT RT 16,5;"UN JEU OUI F 

ERR FREMIR LES", .COEURS SENSI 

BLES. 

124 BEEP .01,R 
126 NEXT fl 

129 CLS 

130 PRINT RT 2,3;"CE JEU SE UÛU 
E R DEUX.." 

131 PRINT RT 4,4;"IL ME FAUT DO 
NC 2 JOUEURS" 

132 LET N=INT (RND*6) 

133 PRUSE 100: INPUT "JOUEUR 1; 
(SON NOM..) ";ZS: PRINT RT 7,3; 

"JOUEUR 1: ";Z*: IF LEN Z$=N THE 

N PRINT RT 12,3;"ATTENTION ";Z«; 
RT 13,7;" TU RISQUE DE PERDRE." 
136 INPUT "JOUEUR 2 (SON NOM..) 
";X$: PRINT RT 9,3;"JOUEUR 2: " 

;X$: IF LEN X*=N THEN PRINT RT 1 
7,3;"ATTENTION ";X*;RT 18,5;" CE 
TTE PARTIE POURRAIT T'ETRE NEFRS 
TE" 
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139 PAUSE £00 

144 CLS 

145 PRINT RT 4,4;" UOUS ETES CO 
URAGEUX ! ! " 

150 PAUSE 200 

170 PRINT AT 7,0;"UOUS ALLEZ DE 
UÛ IR UOUS AFFRONTER A LA ROULETT 

F CjI IvCC " 

175 PRINT AT 12,9;" S* UOTRE AR 
ME **" 

176 PAUSE 120 

177 PRINT AT 17,5; FLASH 1;"UN 
LASER REF. GTR 34UF" 

1S0 PAUSE 200: CLS 

183 PRINT AT 5,4;"UOUS AUEZ 1 C 
HANCE SUR HUIT DE UOUS EN TIRER 
A BON COMPTE" 

184 PRINT AT 8,5;" CEPENDANT LE 
LASER SE FAIT UIEUX "; AT 9,S;"I 

L N'EST PAS NON PLUS A L'ABRI";A 
T 10,8;"D'UNE DEFAILLANCE" 

188 PAUSE 380: CLS 
190 PRINT AT 10,1;"JE CROIS UOU 
S AUOIR TOUT DIT ! ! "; AT 15,6; "DE 
PART: PRESSER UNE TOUCHE" 

193 PAUSE 0: CLS 
195 GO TO 10 

600 PRINT AT 3,3; Z $; AT 3,12; "CO 
NTRE"; AT 3,22,X$ 

602 FOR R=1 TO 8 

603 LET S = 1 + INT CRND*7) 

612 PRINT AT 20,3; "C'EST A ";Z* 
; " DE JOUER. . " 

613 PRINT AT 21,2;"POUR TIRER: 
PRESSER UNE TOUCHE" 

614 PAUSE 0: PLOT 110,61: DRAW 
OUER 1; 0,25 : PLÛT 110,86: DRAU - 
10,-25: PAUSE 25: DRAU OUER 1;10 
,25: DRAW 0,-25: IF S=1 THEN FOR 

E=1 TO 13: BORDER 2: PAPER 2: C 
LS : PAUSE 3; BORDER 7: CLS : NE 
XT E: CLS : BORDER 7: PAPER 7: G 
O TO 1000 

616 PRINT AT 20,3; "CEST A ";XS 
; " DE JOUER. ." 

617 PAUSE 0: PLOT 110,61: DRAW 
OUER 1; 0,25 : PLOT 110,38: DRAU - 
10,-25: PAUSE 25: DRAW OUER 1;10 
,25: DRAW 0,-25: IF S=1 THEN FOR 

E = 1 TO 13: CLS : BORDER 2: PAPE 
R 2: PAUSE 3: CLS : BORDER 7: CL 
3 : NEXT E: CLS : PAPER 5: BORDE 
R 5: GO TO 1100 

619 NEXT R 

620 PAUSE 100 

622 CLS : PRINT AT 10,1;"UNE DE 
FAILLANCE DANS LE LASER ","UÛUS 
LAISSE LA UIE SAUUE A TOUS LES D 
EUX. " 

624 PAUSE 200; RUN 129 
1000 CLS : PRINT AT 10,4;"EH OUI 
, ";Z$;" T"AS PERDU PAUSE 300 
: CLS : GO TO 2000 
1100 PRINT AT 10,4;"EH OUI ";X$; 

" T"AS PERDU.": PAUSE 30Û : CLS : 
GO TO 2000 

2000 PLOT 150,40: DRAW -30,0: DR 
AW 0,80: DRAU 15,40: DRAW 15,-40 
: DRAU 0,-80 

2002 PLOT 135,S0: DRAW 0,30: PLO 
T 130,100: DRAU 10,0 
2004 PLOT 120,39: DRAW -10,10: D 
RAU 0,80: DRAW 10,-10: DRAW -10, 
10: DRAW 15,40: DRAW 10,-10 
2006 BEEP .2,0: PAUSE 6: BEEP .2 
,0: PAUSE 6: BEEP .2,0: PAUSE 3: 
BEEP .6,5: PAUSE 3: BEEP .6,5: 
PAUSE 3: BEEP .4,7: PAUSE 3: BEE 
P .4,7: PAUSE 3: BEEP .8,12: PAU 
SE 3: BEEP .4,9: PAUSE 4: BEEP . 


4,5: PAUSE 3: BEEP .4,5: PAUSE 3 
: BEEP .4,9: PAUSE 3: BEEP .3,5: 
PAUSE 3: BEEP .3,2: PAUSE 3: BE 
EP .6,10 

2007 BEEP .3,7: PAUSE 3: BEEP .3 

,4: PAUSE 3: BEEP .8,5 

2013 PRINT AT 10,3; " ÉMli " 

2015 PAUSE 500: CLS 

2020 BORDER 0: PAPER 0:' INK 5: C 

LS 

2025 PRINT AT 6,2;"3 MINUTES PLU 
S TARD..." 

2027 PRINT AT 9,4;"DEUANT LE GRA 
ND JURY . " 

2030 PAUSE 260: CLS 

204Û PLOT 170,40: DRAU -80,0 

2050 DRAW 0,90 

2060 DRAW 80,0 

2065 DRAW 0,-90 

2067 REM PERSPECTIUE 

2070 PLOT 170,40: DRAU 10,10 

2075 DRAW 0,90 

2077 DRAW -10,-10 

2079 DRAW -80,0 

2080 DRAW -10,10 
2035 DRAW 0,-90 
2090 DRAW 10,-10 

2095 PLOT 30,140: DRAU 100,0 

2106 CIRCLE 120,90,3 

2110 CIRCLE 100,60,3 

2120 CIRCLE 105,100,2 

2122 PLOT 170,40 

2130 PLOT 50,60: DRAW -30,0 

2140 DRAW 0,50 

2144 DRAW 30,0 

2146 DRAW 0,-50 

2148 CIRCLE 43,86,1 

2150 PLOT 240,60: DRAU -30,0 

2160 DRAW 0,50 

2163 DRAW 30,0 

2165 DRAW 0,-50 

2167 CIRCLE 216,86,1 

2159 PRINT AT 7,2;"ENFER" 

2170 PRINT AT 7,£5;"PARADIS" 

2175 PRINT AT 3,14; "JURY" 

2200 PRINT AT 18,2; "QU ' AS-TU FAI 
3 DE BIEN DANS TA UIE ?" 

2210 PAUSE 180 

2220 PRINT OUER 1,AT 18,2;"QU'AS 
-TU FAIS DE BIEN DANS TA UIE ?" 
2230 INPUT N $ 

2240 PRINT AT 18,2;"ET APRES ?" 
2245 PAUSE 140: PRINT OUER 1,AT 
13,2;"ET APRES ?" 

2247 INPUT M$ 

2250 PRINT AT 18,2;"LE JURY UA R 
EFLECHIR A TON CAS" 

2252 FOR 3=1 TO 20 

2255 BEEP .005,50: PAUSE 40 

2260 BEEP .008,0 

2265 PAUSE 13: BEEP .002,60 

2266 BEEP .004,-10: PAUSE 20 

2267 BEEP .006,10: PAUSE 12 

2268 BEEP .005,67: PAUSE 10 
2270 NEXT S 

2280 PRINT OUER 1,AT 18,2;"LE JU 
RY UA REFLECHIR A TON CAS" 

2234 PRINT AT 18,2;"LE JURY A RE 
FLECHI A TON CAS.." 

2236 LET A=INT <RND*3) 

2287 IF A =0 THEN GO TO 230O 

2288 IF A=1 THEN GO TO 240© 

2239 IF A = 2 THEN GO TO 2500 
2290 IF A=3 THEN GO TO 260© 

2292 PRINT OUER 1,AT 18,2;"LE JU 
RY A REFLECHI A TON CAS" 

2300 PRINT AT 18,3;"TU UAS DEUOI 
R PASSER DES TESTS" 

2301 PAUSE £00; CLS 
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TRANS-EXPRESS _ 

Transférez facilement les programmes 
48 KSpeclrumde : Cassette à Cassette/ 
Cassette à Microdrive / Microdrive à 
Microdrive / Microdrive à Cassette. Vous 
donne le nom caché du programme, sa 
longueur en octets, l’adresse du début 
(Langage Machine) ou la ligne de lance¬ 
ment automatique (Basic) et beaucoup 
d’autres possibilités. 

Trans-Express - réf su 18 -195 F 
Cassette à Miorodrive uniquement - rél su 
19-100 F 

Trans-Express Microdisquette - rél su 20 - 
275 F 


NOUS NE POUVONS MONTRER ICI TOUS LES ECRANS DE 
i \ . ,, .x*_ 


TRACK BALL 
“SOURIS” _ 

Déjà bien connue sur d’autres gros ordi¬ 
nateurs, voilà enfin une "souris" pour 
votre Spectrum. La vitesse de réponse 
d’une souris ne peut pas être comparée 
à un joystick conventionnel car, elle 
combine la rapidité d’un joystick digital 
avec la maîtrise d’un type analogique. 
En dehors des logiciels de jeux, TRACK 
BALL peut-êlre utilisé pour des mouve¬ 
ments précis de curseurs sur des logi¬ 
ciels utilitaires. Se raccorde sur l’inter¬ 
face de jeu HG 05 ou HG 07 ou toute 
autre interface au standard Kempston. 

Spectrum - réf hg 03 - 285 F 


fl 



mm 


ROCKET MAN 

I6KZX8J 




ROCKET MAN_ 

Gravissez les étages de la tour et faîtes le 
plein de votre fusée ; juste assez pour 
décoller et échapper au danger qui vous 
poursuit venant des vagues de la mer. 
Graphisme Haute Résolution dans la 
même veine que FORTY NINNER. 

100% langage machine. Option: 
' Redéfinition des touches. 

ZX 81 - réf sg 302- 105 F 
Version Spectrum - réf sg 98 -110 F 


Les concepteurs de ce logiciel onl inventé une nouvelle techni¬ 
que de programmation créant ainsi une nouvelle race de jeux. 

La guerre du Solstice va commencer. Rassemblez sous votre 
banière ceux qui vous aideront à la gagner. 

LORDS OF MIDNIGHT n’est pas seulement une aventure c’est 
une Nouvelle Fantastique Vivante. Et. vous êtes l’auteur de 
l’action. Vous pourrez changer les caractères et les personnages 
à votre gré. distribuant ainsi les dillérents rôles du monde à 
jamais changeant de LORDS OF MIDNIGHT. SPECTRUM 48K - réf 
sg 92 - 150 F. 


SYNTHETISEUR 
DESONS _ 

Une idée sonore pour voire spectrum. 
L’interface se compose d’un amplifica¬ 
teur audio et d ’un synthétiseur de sons à 
3 canaux pour programmer (Basic ou 
Machine) votre propre musique, des 
explosions, sifflements, zaps, carillons 
bruits blancs et une gamme infinie 
d’autres sons sur 8octaves. Contrôledu 
ton, de l’enveloppe et du volume. Livré 
avec un haut parleuret son câb 
cordement(1 m). __ 

tiSSÜ 

Réf hd 05 - 495 F 
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Je désire recevoir le JEU EUREKA SUR CASSETTE, au prix de 250 F. Je ne le recevrai qu’à 
partir du 1/12/1984, date de début du concours ; et mon règlement ne sera encaissé, au plus 
tôt, que 8 jours avant la livraison du jeu, 

JEU EUREKA POUR COMMODORE 64 □ 250 F TTC. 

JEU EUREKA POUR SPECTRUM 48 K □ 250 F TTC. 


Ci-jointe la somme de F_TTC, par chèque bancaire à 

l'ordre de EUREKA INFORMATIQUE , 39/41, rue Victor-Massé - 75009 PARIS. 


Eurêka, c'est cinq aventures en une 
\ seule cassette. 

\ Remontez le temps et sauvez le 
tll monde! 


Jü' 

ül 


AGE PREHISTORIQUE 

Seul, sans défense, vous vous retrouvez 
à l’aube des temps. Autour de vous ? 
t la jungle, le bruissement des feuilles, 
à des pas dans les broussailles. Votre 
là sang'se fige. Une ombre immense 
Êk vous recouvre. Le sol tremble. 


a LA ROME ANTIQUE 

HLe départ de la course de char 
KÉ/a être donné. Les autres concur- 
l|V/?qnts vous observent et vous 
clouent du regard, tous au 
^y-même gabarit, ils vous dépas- 
H|gL sent de deux tètes et leurs 
SgP» chevaux semblent mieux 
^entraînés que le vôtre. Vous par 
îz le stade du regard. La course est 

tip! 


: MOYEN AGE 

2 S créneaux de la Tour de la Fée Morgane 
îe peuvent rien pour empêcher la brise 
glaciale de transpercer votre armure. 
' Seul en haut de cette tour, vous enten- 
i dez une voix qui vous crie de la re- 
joindre, là, dans l'ombre. Derrière 
vous, des pas résonnent. Vous vous 
décidez à descendre au plus pro¬ 
fond de la tour, Des hurlements 
déchirent la nuit..'. 


LDITZ 

long couloir, gris, sombre et glacé. 
|ous avancez pas à pas, attentif au 
loindre bruit. Du bout du couloir vous 
larvient une conversation assourdie. 
A votre droite, une porte ! Sur la porte 
un mot : VERBOTEN ! 

Vous l'ouvrez. Le bruit métallique 
des bottes se rapproche. Vous ser¬ 
rez les poings. 


LES CARAÏBES MODERNES 

Vous remontez le temps à la vitesse 
de la lumière. Dans l'immense labora¬ 
toire du Dr Von Berg, l'écran de l'or¬ 
dinateur affiche les informations. 
Callé dans un fauteuil, les mains 
posées sur le clavier, vous vous 
préparez à un duel où l'arme est 
l'esprit... 

t#§ociété PROSPECTIVE INTERNATIONALE DE DISTRIBUTION, dont le 
Siège Social est situé 39, rue Vicor-Massé - 75009 PARIS, organise à partir 
du 1 er Décembre 1984, un Concours avec obligation d'achat intitulé 
EUREKA. Le premier dépouillement aura lieu le 31 Mars 1985. Si néces¬ 
saire, un dépouillement mensuel sera ensuite effectué jusqu'à ce que les 
250 Prix soient distribués. Ce concours est ouvert à toute personne physi¬ 
que résidant sur un territoire francophone, à l'exception du Personnel des 
Sociétés organisatrices ainsi que toute personne ayant participée à l'éla¬ 
boration, la promotion, la distribution et la revente du jeu EUREKA. 

Pour participer au Concours, il faut : acheter le jeu EUREKA et renvoyer le 
Bon de Participation joint ; pour gagner, il faut être l'une des 250 premiè¬ 
res réponses aux énigmes contenues dans le jeu et ce, par télégramme. 

Le réglement complet a été déposé chez Maître JAUNATRE, Huissier de 
Justices à PARIS, et peut-être obtenu, sur simple demande accompagnée 
d'une enveloppe timbrée à : 

Concours EUREKA - 39, rue Victor Massé - 75009 PARIS. 


BON DE COMMANDE 
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JAtlSMAN TEMPOREL 

Au cours de la dix-septième 
mission Apollo, les astronautes 
américains découvrent sur la Lune 
un étonnant cristal poli de 40 cm de 
côté. Réfractaire à toute analyse, le «g 
talisman explose sous' l'effet de ra- 1 
yons laser, qui dispersent chacun de * 
ses angles. Grâce à des ondes radio, 3 
des coins sont retrouvés, mais 5 autres 
manquent toujours. 

^ Comme par coïncidence, la Lune 
connaît de très fortes secousses sismiques. 

Selon le Dr Majid, elles sont liées à l'explosion 
du cristal et la lune serait elle-mêmesurle point 
d’exploser, bombardant la Terre de giganter 
ques météorites. Il affirme, d'autre part, que ch 
que coin manquant a été propulsé dans l'esp; 
temps allant de la préhistoire à l’époque mode 
F 5 ' Votre mission consiste, avec l'aide de la Ne 
de son Chronotron, à remonter le temps pc 
rapporter. 

A chaque étape vous devez user de tou 
intelligence pour résoudre chaque énigme ; vo 
se vous aidera à survivre. Eurêka, en propos 
d'Arcade suivi d'un jeu d'Aventure, teste parfa 
qualités que l'aventure au réel exigerait de vc 
f Vous désirez participer au Concours Eure 
simple. Il faut que vous possédiez, soit un systè 
re64 ou Spectrum 48 K et acheter le progri 
A vous de jouer. 

Pour découvrir la bonne réponse, il faut, t 
tuant le cristal, décoder les énigmes contenues 
et les illustrations. 

- Le premief à nous télégraphier la bonne 
le Chèque de 250.000 F. 

-Le second gagnera un voyage d'une semaine pour 2 
personnes. 

- Les 3 suivants, des bons d'achat de 5.000 FTTC. 

- Les 245 autres, des bons d'achat de 100 F TTC. 

P*- COMMENT GAGNER ? 

Vous avez reçu la cassette de jeu et son fascicule. Un bon de 
garantie, surtout destiné à formaliser votre participation, com¬ 
porte 2 volets :unquevousdevezabsolument conserver,l'autre 
que vous devez impérativement nous retourner dûment rempli. 

Il constitue la seule véritable preuve de votre participation. N’ou¬ 
bliez donc surtout pas de nous le retourner. Si, d'autre part, vous 
avez découvert la bonne réponse, ne nous téléphonez pas! 
Adressez-nous un télégramme répondant aux conditions pré¬ 
vues dans le règlement. 

^ Eurêka est un programme aussi spectaculaire qu'unesuper 
production de cinéma. Les graphismes et les animations sont 
surprenantes de vérité. La bande sonore et les bruitages vous 
replongent, grâce à une simulation parfaite, dans chacune des 
cinq époques. Vous percevrez tout. T 

Il est joint à ce programme un fascicule détaillé qu’il est? 
essentiel de lire attentivement. Illustré, il contient toutes les 
explications du jeu et les énigmes auxquelles il vous faudra 
répondre. 


Déjà auteur de romans d'aventure, 
vendus à plus de deux millions 
d'exemplaires, lan Livingstone est 
le créateur d’Eureka. 

Il a imaginé les énigmes et les pièges les plus re¬ 
tors. Il est d'ailleurs le seul, pour l'instant, à con¬ 
naître la bonne réponse. Programmé par les équi¬ 
pes d'Andromèda, sous la direction de Donat Kiss 
et Andras Csascar, Eurêka représente 5 années 
de travail et le concours de 4 graphistes, 2 musi ¬ 
ciens et d'un professeur de logique. 

Nous voulions une aventure qui vous pousse dans 
vos derniers retranchements. Ils l'ont fait ! 
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ensemble* 

SPECTRUM 

48K Un ordinateur SINCLAIR SPECTRUM 48K /Un interfa- 

2 ce Peritel/Un magnetocassette/Un Interface Joystick/ 

QQfl ET Un Joystick / Les divers câbles de branchement/ 
M Le programme EUREKA. 
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ensemble* 

C0MM0D0RE64 





3.990 F 


Un ordinateur Commodore 64 / Un interface Peritel / 
Un magnétocassette pour C64 / Les divers câbles de 
branchement (magnétophone, télé et secteur)/Un 
joystick / Le programme EUREKA. 


Le concours n'ouvrant que le I e ' décembref1984, aucun jeu Eurêka ne sera livré au public avant cette date. Les expéditions des 
programmes Eurêka débuteront donc le 30 novembre 1984 et seront effectuées dans l’ordre d’arrivée des commandes. Les 
chèques seront encaissés 8 jours seulement avant la date d’expédition. Le matériel, lui, sera livré immédiatement. 

'Les éléments de ces ensembles peuvent être acquis séparément : consulter le bon de commande ci-dessous ou notre catalogue VPC. 
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BON DE COMMANDE 


PRIX EN FRANCS, TTC QTÉ 



CADEAU 


Les personnes ayant 
passé commande avant 
le 31.12.84. Recevront 
gratuitement le guide 
des logiciel 84. 


Votre Commande en Francs 


Signature: 


• ENSEMBLE COMMODORE PROMO EUREKA. 3990 

COMMODORE 64 PAL SEUL. 2790 

COMMODORE 64 PERITEL SEUL. 3 450 

COMMODORE SX 64 PORTABLE. 8490 

UNITE DE DISQUETTES COMMODORE. 3190 

LECTEUR DE CASSETTE POUR COMMODORE. 400 

IMPRIMANTE COSMOS 80 . 2850 

INTERFACE CENTRONICS POUR IMPRIMANTE. 240 

LOT DE 10 CASSETTES VIERGES. 75 

BOITE DE 10 DISQUETTES VIERGES. 190 

• ENSEMBLE SPECTRUM PROMOTION EUREKA. 2890 

ORDINATEUR SPECTRUM 48 K PAL. 1890 

ORDINATEUR SPECTRUM 48K PERITEL. 2220 

INTERFCE ZX1 SPECTRUM . 745 

INTERFACE JOYSTICK. 180 

MICRO-DRIVE SPECTRUM. 745 

DOUBLE MICRODRIVE ROTRONICS. 1990 

MICROCASSETTE POUR MICRODRIVE SINCLAIR. 75 

LECTEUR DE CASSETTE. 450 

IMPRIMANTE THERMIQUE ALPHACOM 32 . 920 

ROULEAU DE PAPIER THERMIQUE. 30 

MONITEUR COULEUR CM 14 FIDEUTY. 2750 

CABLE POUR BRANCHER UN COMMODORE 64 SUR CM 14. 80 

CABLE POUR BRANCHER UN SPECTRUM SUR CM14. 130 

MONITEUR N/V PHILIPS TP200 . 950 

JOYSTICK SPECTRAVIDEO . 95 

JOYSTICK KRAFT. 85 


Total de votre commande : 


F TTC. 


Nom ___ Prénom _ 

Adresse_Ville _ Code postal_ 

Ci-jointe la somme de F _ TTC, par chèque bancaire à l’ordre de EUREKA INFORMATIQUE 

39/41, rue Victor-Massé - 75009 PARIS. 

O 5 


Signature des parents 
(Pour mineur) 


rgws- 

y Nom: _ 

* Adresse: ___ 

I 

I 

| Code postal: I I I I I I 
| Ville: _ 

I 

I 

I 

I 

. Je désire recevoir votre catalogue 
| de vente par correspondance. Ci- 
. joint 5 Francs en timbres-poste 
I pour contribution aux frais d'ex- 
. pédition. 

y 05 
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